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lutti i segreti che 
bisogna conoscere 
per acquistare bene 
Computer, Monitor, 





RFTURN 


yideogiochi. 


n un mercato effervescente come 
quello dell’elettronica, non è facile 
orizzontarsi tra tante offerte tutte diverse 
ed accattivanti. ■■Acquistare bene a colpo 
sicuro, non è impossibile: l’importante è 
avere ben presenti le proprie esigenze, sen¬ 
za farsi distrarre da tanti inutili “gadgets' ’ 
che non aiutano certo la qualità. Anzi, tanto 
più una macchina è semplice, tanto più è 
affidabile e sicura. i^B Una macchina sem¬ 
plice. tuttavia, non deve essere per questo 
limitata, ma deve consentire una certa pos- 
. sibilità di espansione e deve essere aperta 
ad accogliere nuovi programmi non ancora 
, . realizzati. Mi Esattamente come la linea 
computer Fenner: espandibile secondo le 
le Vostre esigenze, capace di gestire video 
ad alta risoluzione, in grado di fornire delle 
sofisticate macchine di calcolo o divertenti 
partners di video giochi. Mi 












In una parola. 



Un grande nome nell'elettronica 
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ANNUNCI ANNUNCI ANNUNCI ANNUNCI ANNUI 


SE DESIDERATE VENDERE O SCAMBIARE IL VOSTRO COMPUTER E/O PERIFERICHE, INVIATE IL 
TESTO DA PUBBLICARE GRATUITAMENTE A: LIST, VIA FLAVIO STILICONE, 111 ROMA 00175. 

Poiché gli annunci sono gratuiti verranno cestinati quegli annunci che palesemente mirano all’esclusiva vendita 

o scambio di programmi che denotano evidente scopo di lucro. 

Per le ditte o gli artigiani che intendono pubblicizzare prodotti vale la tariffa modulare sottoindicata. 


□ VENDO TI 99/4A + regi¬ 
stratore originale, cassette 
giochi Lire 180.000 - extended 
basic L. 70.000 - 32 K RAM la¬ 
terale + manuale assembler 
Lire 150.000 - listati, program¬ 
mi e riviste per TI 99/4A Lire 
50.000. 

Bernardi Maria, 
via Torricelle, 3 
37128 - Verona, 
tei. 045/916224. 

□ VENDO computer MSX Phi¬ 
lips VG 8020, 80 colonne ed ol¬ 
tre 100 programmi tra giochi e 
utility, il tutto a sole Lire 
700.000. Il tutto è come nuovo 
(9 mesi). Rivolgersi a; 
Francesco Quaglia, 

Via Ricasoli, 3 
Mestre (VE), 
tei. 041/942854. 

□ VENDO computer Philipis 
MSX VG 8010 - 48 K RAM (pra¬ 
ticamente nuovo) + registrato- 
re Philips specifico per home 
computer, Il tutto a Lire 
450.000, 

Giuseppe Granito, 
via S. Bartolomeo, 28 
84022 Campagna (SA) 
tei. 0828/48304. 

□ VENDO ZX-spectrum + 
con registratore Philips per 
computer, molti giochi, rivista 
e manuali il tutto a lire 
350.000, 

Telefonare ora pasti al 
0464/413006, 

Rovereto (TN). 

□ VENDO per passaggio a si¬ 
stema superiore, ZX-spectrum 
corredato di manuale e 10 pro¬ 
grammi, a Lire 200.000 trattabi¬ 
li (in ottimo stato). 

Massimo Azzimonti, 

Via A. Volta, 6 Trieste. 


□ VENDO C 64 + disk drive 
con garanzia + registratore + 
vasto software su dischi e cas¬ 
sette, + 4 manuali per l’uso a 
Lire 800.000 Rivolgersi a; 
Anastasio Francesco, 

Via Arditi d'Italia, 10 
(RA). Tel. 0544/61078. 

□ VENDO computer QL 14 
Prism. Video a tastiera con mi¬ 
crodrive giochi e programmi 
guida. Il tutto a Lire 700.000, 
(come nuovo). 

Paolo Fumagalli 
Via Bobbio 15A/15 - 16100 Ge¬ 
nova, 

Tel. 010/870128. 

□ VENDO computer MSX Phi¬ 
lips VG 8010, 48K, con regi¬ 
stratore, 2 joystick, 8 program¬ 
mi tra giochi e utility + corso 
di video basic in cassette. Il 
tutto a Lire 350.000 trattabili, 
(come nuovo). 

Massimiliano Monteleone, 

Via Melara, 22 
54033 Carrara (MS) 

Tel. 0585/841410 (ore pasti). 

□ VENDO computer Olivetti 
Prodest PC 128 S in garanzia 
(condizioni perfette), + vari 
programmi ed utility a Lire 
799.000 (valore 1.200.000 
Claudio Mauri 

Via Ostiense 103, 

00154 Roma 
Tel. 06/5770163. 

□ VENDO C 128 come nuovo 
+ drive 1571 con garanzia in 
bianco + 2 registratori + joy¬ 
stick del valore di Lire 150.000; 
manuali, libri e riviste dedica¬ 
te, 10 floppy vergini. Lire 
900.000 (non tratt.) 

Telefonare allo 0382/33921 di 
pomeriggio e chiedere di Ga¬ 
briele. 


□ VENDO a causa passaggio 
sistema PC, Sinclair QL/JM 
completo di monitor Hantarex 
monocromatico, Boxer 12, 
stampante grafica Apple Scibe 
oltre alcune cartridges e rivi¬ 
ste con programmi, tutto a Li¬ 
re 800.000 trattabili (anche se¬ 
paratamente). 

Daniele Matucci 
Via Nievole, 37 
51010 Nievole (PT), 

Tel. 0572/67088, ore 20-20,30. 

□ VENDO ZX-spectrum Plus 
48K usato pochissimo causa 
passaggio a sistema superiore 
Lire 200.000, 

Vendo inoltre Apple II e, 2 disk 
drive + monitor fosfori verdi a 
un prezzo bassissimo; 
telefonare o scrivere a: 

Sergio Rivoletti 

Via Tevere, 12 

63017 Porto S. Giorgio, 

Tel. 0734/4419. 

□ VENDO Olivetti Prodest. 
PC 128 in garanzia, con pro¬ 
gramma di grafica su cartuc¬ 
cia, penna ottica, joystick, 20 
giochi e due manuali per l’uso, 
registratore incorporato. 
Telefonare ore pasti allo 
011/589849 

Andrea Aleandri, 

Largo Orbassano, 68 Torino. 

□ VENDO Olivetti Prodest PC 
causa passaggio a sistema su¬ 
periore, completo di registrato- 
re a due velocità (1200/2400 
bauds) integrato + stupendo 
soft. grafico su cartuccia + 
penna ottica + 12 giochi-*- 2 
joystick + manuale, TV B/N, 
imballo originale, come nuovo, 
a Lire 550.000. Scrivere a 
Cosimo Benini, 

00144 Roma, 

Viale Cesare Pavese 89. 

□ VENDO C 64 + registrato- 
re e joystick + moltissimi gio¬ 
chi e libri, il tutto a Lire 
300.000, più lire 15.000 spese 
sped. 

Massimo Spinetti 
Via Castello Romano, 55 
17020 Laiqueglia (SV) 

Tel. 0182/499343 ore 
19,30-20,15. 


Per Sharp MZ 700 
tre 

programmi totocalcio, 
1 duplicatore di 
programmi in L/M, 

L. 90.000. 
Scrivere a: 

Piero Venditti, 

Via Montagna, 78 
04018 Sezze (LT). 
Inviare L. 3000 per 
spese postali dedotte 
in caso di acquisto. 


□ VENDO Sharp MZ-700 con 
registratore + stampante a 
colori + Joystick Sharp (origi¬ 
nale) + espansione grafica + 
monitor della Philips + circa 
50 riviste dedicate allo Sharp 
+ circa 100 tra giochi e utility. 
Tutto in ottimo stato e tutto 
ben funzionante. Valore totale 
circa L. 2.000.000. Rilascio tut¬ 
to a sole L. 1.200.000 trattabili, 
scrivere o telefonare ore serali. 
Chiedere di Stefano. 

Stefano Idini 

Via P. Querini n. 1, 

00153 Roma 
tei. 06/5770901. 

□ VENDO computer CBM 64 
composto da; tastiera, regi¬ 
stratore datasette Commodo¬ 
re, disk drive 1541, n. 22 cas¬ 
sette e n. 16 floppy disk con 
dentro molti giochi stupendi 
(Imp. Mission, Rambo, Com¬ 
mando, Ghosts Golblins, 
Ketch) e moltissimi altri). 

Il materiale è in ottime condi¬ 
zioni. Il prezzo totale è di L. 
600.000 trattabili. 

Rivolgersi a: 

Filippo Cardellini 

Via A. Falconi 28, Roma 

tei. 06/6290252 ore pasti. 

□ VENDO Commodore C128 
più drive 1571 più stampante 
Okimate 20 colori più video 
Hantarex H12 fosfori verdi più 
registratore. Il tutto come nuo¬ 
vo a lire 1.800.000 trattabili. 
Chi fosse interessato può tele¬ 
fonare o scrivere a: 

Pellizer Franco 
Via Molteni n. 6 
21050 Lonate Ceppino (VA) 
tei. 0331/841130. 


Per gli annunci a scopo commerciale (imprese o 
artigiani) è riservato uno o piu spazi modulari di 
cm. 4,3 x 5 al prezzo di Lit. 30.000 cadauno per 
ogni pubblicazione. Il testo, in busta chiusa, deve 
pervenire in redazione almeno 30 giorni prima 
dell’uscita in edicola. 

La richiesta dovrà essere accompagnata da un assegno bancario n i. intestato a: 
EDICOMP srl. Vìa Flavio Stilicone 111 00175 ROMA 
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Raccomandiamo la brevità delle do¬ 
mande. Si darà precedenza a quelle 
che trattano argomenti di interesse 
generale. 


IL LOGO 3D 

Sono un lettore della vostra rivista e leg¬ 
gendo l'ultima edizione n. 6/7 — Giugno- 
Luglio 87, che trattava l'argomento il LO¬ 
GO TRIDIMENSIONALE vorrei notizie in 
merito. 

Possiedo un COMMODORE 64 e avrei ne¬ 
cessità di sapere se esistono in commer¬ 
cio programmi per il 64 inerenti a: 

1) Prospettiva centrale e accidentale 

2) Arredamento per interni 

3) Piante, prospetti e sezioni di fabbricati. 

Alberto Mazzanti - Massa 

Il LOGO TRIDIMENSIONALE è stato rea¬ 
lizzato per essere utilizzato soprattutto in 
ambiente educativo, si lavora in prospetti¬ 
va centrale e si possono ottenere tutte le 
figure volute, dal punto di vista professio¬ 
nale non potrei per ora consigliarne l'ac¬ 
quisto per la lentezza della stampa su car¬ 
ta e per l’inconveniente delle linee nasco¬ 
ste. Dal punto di vista di visualizzazione di 
oggetti nello spazio è molto interessante 
l'applicazione. Il programma ed il libro 
vengono distribuiti dalla Sisco di Roma, 
via Fiorentini 106. Esiste per il C64 un pro¬ 
gramma chiamato CAD 3D, ma non saprei 
se può soddisfare le sue richieste. 


CERCO PROGRAMMI per LASER 

Sono un fortunato che ha avuto in regalo 
un computer chiamato LASER modello 
110; ma non riesco a trovare programmi 
per tale computer. Desidererei sapere se a 
quali dei vostri interessanti programmi so¬ 
no adattabili al mio computer; vi ringrazio 
e mi complimento per la vostra bella rivi¬ 
sta. 

Marco Rosati - Brescia 

Il nostro lettore Marco, dovrebbe sapere 
che il Basic è un linguaggio base, ma 
ogni computer ha poi un «dialetto» diver¬ 
so. Per questo l'adattabilità di un pro¬ 
gramma è rimandata alla capacità di sup¬ 
plire con delle routines a quelle istruzioni 
non contemplate dal proprio Basic ed alla 
conoscenza di saper tradurre le eventuali 
POKES utilizzate. Conseguentemente a 
queste obiettive difficoltà consigliamo a 
Marco di studiare molto su un buon libro 
il linguaggio Basic e metterci una grande 
dose di buona volontà. Ti ringraziamo per 
i complimenti e ti facciamo tanti auguri. 


COMPATIBILITÀ MSX 

Sono un possessore di un Philips NMS 
8280 MSX 2, il motivo per cui ho scritto è 
il seguente: visto che non sempre i pro¬ 
grammi in basic, soprattutto dove compa¬ 
re l'istruzione 'vpoke', sono compatibili 
con TMSX2, perché non specificate se il 
programma si può eseguire anche su un 
computer MSX2? 

Complimenti per la rivista! 

Sironi Sergio - Seregno (MI) 

Hai toccato con le tue poche parole, una 
questione abbastanza scottante per quan¬ 
to riguarda il discorso MSX: abbiamo po¬ 
tuto riscontrare, durante i lavori di prepa¬ 
razione del Software MSX che non tutti i 
compatibili, se cosi possono chiamarsi, ri¬ 
spondono fedelmente alle operazioni che 
vanno a manovrare con 'vpoke' o con 
qualche altra cosa la memoria. Ne sa 
qualcosa il programma TIT scritto da 
Osvaldo Contenti che è stato seguito da 
una miriade di telefonate da parte di chi 
lamentava il malfunzionamento del pro¬ 
gramma. In realtà il programma funziona¬ 
va alla perfezione, ma andava a leggere 
una zona di memoria della ROM che evi¬ 
dentemente non era uguale da MSX a 
MSX. 

Figuriamoci quindi con l'MSX2! Promettia¬ 
mo però che analizzeremo a fondo il pro¬ 
blema e, come tu ci chiedi, segnaleremo il 
software compatibile con tutti evidenzian¬ 
do eventualmente le differenze. 

SPHEROGRAPH 

Invio i miei ringraziamenti per aver rispo¬ 
sto con sollecitudine alla lettera inviatavi 
nella quale facevo presente di avere pro¬ 
blemi con il listato « SPHEROGRAPH » per 
il mio Olivetti PC 128S. Permettetemi di 
elogiarvi per aver risolto il mio problema 
chiamandomi addirittura al telefono. Con¬ 
fermo che i suggerimenti avuti hanno dato 
esito positivo, ora il programma gira per¬ 
fettamente. Vi ringrazio e vi assicuro di 
esssere un vostro assiduo lettore. 

Giorgio Cali • Varese 

Ringraziamo a nostra volta il lettore Gior¬ 
gio Cali per la cortese lettera inviataci e 
confermiamo con l'occasione di essere a 
disposizione dei lettori che desiderano 
chiarimenti sui programmi che pubblichia¬ 
mo. 


ATARISTI ATTENZIONE! 

Sono un vostro lettore ex possessore di 
computer MSX, sono passato ad un siste¬ 
ma superiore, all'ATARI 1040 ST. Per la ve¬ 
rità al momento dell'acquisto avevo preso 
in considerazione anche l'AMIGA, ma per 
questione di prezzo decisi per TATARI, an¬ 
che perché anch'esso è di ottima qualità. 
Ma dopo poco mi sono accorto che, pur 
essendo un ottimo computer, non ho tro¬ 
vato riviste dedicate, neanche la vostra, 
per intenderci. Ed è proprio per questo 
che vi scrivo, per chiedervi se nei vostri 
programmi avete considerato anche que¬ 
sto computer. Sperando in una vostra ri¬ 
sposta vi saluto cordialmente e vi faccio i 
miei complimenti per la bella rivista. 

Andrea Valentini • Bologna 

Altre richieste abbiamo ricevuto in merito. 
Possiamo assicurare te e gli altri «Atari- 
sti» interessati, che stiamo già lavorando 
su questa ottima macchina. 

Se hai degli amici «Ataristi», informali, 
perché tanto più sono i fruitori di pro¬ 
grammi e tanto più è il nostro interesse di 
servirli. 

Ti ringraziamo dei complimenti per la no¬ 
stra rivista, ma come avrai potuto consta¬ 
tare LIST è fatta anche da voi lettori, e più 
sarete e più sarà bella, perciò avvisa i tuoi 
amici, grazie. 

Distinti saluti. 


CERCO PROGRAMMI per ORIC 2 

Sono un possessore di un ORIC 2, ma non 
trovo pubblicati programmi per il mio H.C. 
Ne inserirete nella vostra interessante rivi¬ 
sta? 

Nicola Amati - Brindisi 

Dobbiamo purtroppo risponderti che non è 
prevista la pubblicazione di programmi 
per il tuo h. c. per l'esiguo numero di 
utenti, ma possiamo consigliarti di richie¬ 
derci la raccolta.di «LIST» 1984 dove tro¬ 
verai molti programmi per il tuo ORIC 2, 
crediamo sia l’unica soluzione. Ti ringra¬ 
ziamo per averci interpellato. 


ABBONATI 

ALIST 

Farai un ottimo servizio di 
sostegno alla TUA rivista 
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FINALMENTE L’OPERA CHE ANCHE LEI ASPETTAVA! 



NUOVO! 


ii rnmoi it co 

IL LUI II U I Cl\ 

LA NUOVA COLLANA DI MONDADORI E TIME-LIFE LE SVELERÀ’ 

LA RIVOLUZIONE ELETTRONICA CHE STA CAMBIANDO IL MONDO. 


Avventurarsi nello strabiliante e sconcer¬ 
tante mondo dei computer può essere mol¬ 
to difficile senza un aiuto efficace. Monda- 
dori e Time-Life oggi Le garantiscono con 
la loro esperienza proprio l'aiuto che Le 
occorre per capire il computer: da come 
“pensa” a come viene utilizzato, a ciò che 
può fare per Lei. 

CAPIRE IL COMPUTER affronta tutti que¬ 
sti argomenti e li rende facili. 

Splendide illustrazioni a colori corredate 
da testi esplicativi l’aiutano a scoprire e a 
comprendere facilmente anche gli aspetti 
più complicati del computer. 

Primi piani fotografici mettono a fuoco 
per Lei l'affascinante mondo miniaturizzato 
dei circuiti e dei microchip. 

Precisissime illustrazioni in spaccato 
Le permettono di curiosare "dietro le quin¬ 
te" del computer. 


ENTRI NEL CUORE DEL COMPUTER! 


Richieda fiRATIS A CASA SUA 
PEPflf GIORNI INTRODUZIONE 
AL COMPUTER. _ 

Approfitti subito di questa offerta E’ il 
modo migliore per valutare e apprezza 
re di persona le eccezionali caratteristi 
che editoriali di quest'opera 


A Garanzia noi 


Uno standard 
per la 

comunicazione 


so sistema di circuiti atti a memorizzare, 
analizzare e richiamare i dati. Apprenderà 
come è semplice il linguaggio del computer 
e perchè questa semplicità è il segreto per 
insegnargli tutto: dal comporre musica, 
all’assemblare automobili, dallo scrivere 
lettere al tenere sotto controllo una diga. 
Approfitti oggi stesso di questa offerta. 
Spedisca subito il suo Buono di Visione 
Gratuita. Riceverà in più un simpatico 0 
OROLOGIO-CALCOLATRICE MULTI- 
FUNZIONI a forma di computer. 


PER LEI 

in oozpi n 

n i KìZui lUJ 

QUESTO SIMPATICO OROLOGIO 
CALCOLATRICE MULTIFUNZIONI 

Con INTRODUZIONE AL COMPUTER Lei riceverà IN 
REGALO questo originale OROLOGIO-CALCOLATRI¬ 
CE a forma di computer. Un utile e simpatico oggetto da 
scrivania, capace di 
svolgere numerose 
funzioni 

• ORE. MINUTI. 

SECONDI 

• GIORNO, MESE. 

ANNO 

• SVEGLIA 
•-DOPPIO ORARIO " 

• CRONOMETRO 

• QUATTRO 
OPERAZIONI 

• QUADRANTE 
A OTTO CIFRE 

• TEMPERA¬ 
MATITE 

• DIMENSIONI: 
cm. 8,5x5,5*6,5 


CARATTERISTICHE: 

• Grande formato (cm. 23,5 x 28) 

• Copertina argentata, solida rilega¬ 
tura e fotografia a colon applicata 

a mano. 

• 1 28 pagine 

• Diagrammi e schemi esplicativi 

• Riccamente illustrata con splen¬ 
dide fotografie a colon 

• Indice di facile e rapida consulta¬ 
zione 

• Tantissime spiegazioni, scritte 
senza ricorrere ad alcun "gergo'' 
pur mantenendo intatta la comple¬ 
tezza e il rigore scientifico delle 
informazioni. 


Solo Mondadori e Time-Life potevano 
renderLe cosi facile e piacevole la sua 
introduzione al computer' 

CAPIRE IL COMPUTER: 
UN’OCCASIONE DA NON PERDERE 

Non perda l’opportunità di partecipare 
anche Lei alla rivoluzione del computer 
Mondadon e Time-Life hanno creato 
un'opera unica che pagina dopo pagina 
Le permetterà di capire come il compu¬ 
ter può entrare a far parte del suo mon¬ 
do, del suo stile di vita, del suo futuro 
Giudichi Lei stesso ! 


La CDE - Gruppo Mondadori 

Le garantisce: 

• 10 giorni di visione gratuita e senza nessun 
impegno d'acquisto di INTRODUZIONE AL 
COMPUTER, prima pubblicazione dell'ecce¬ 
zionale rassegna CAPIRE IL COMPUTER 
edita da Mondadori e Time-Life. 

• Un regalo sicuro che riceverà con INTRO¬ 
DUZIONE AL COMPUTER e che rimarrà 
suo per sempre: un simpatico OROLO¬ 
GIO-CALCOLATRICE a forma di computer. 

• La possibilità di restituirci la pubblicazione 
a nostre spese, in caso di insoddisfazione. 

• Il prezzo convenientissimo se deciderà di 
acquistarla: solo L. 26.800 ( + 2.900 per contri¬ 
buto elle spese di imballo e spedizione). 

• L'eccezionale Garanzia f. .ssji.hiJ 
cioè la certezza di ricevere le successive pubbli¬ 
cazioni di CAPIRE IL COMPUTER al ritmo 
di una al mese sempre a sole L. 26.800 

( + 2.900) ciascuna: un prezzo che per Lei re¬ 
sterà fisso e bloccato per sempre. 

• La libertà di sospendere l’invio delle pubbli¬ 
cazioni in qualsiasi momento, con una sempli¬ 
ce comunicazione scritta. 

• Un marchio che vale. Con questo 
marchio di garanzia la CDE - Gruppo 
Mondadori Le assicura tutti questi 
vantaggi. Risponda subito con fiducia. 


L !*3 


BUONO DI VISIONE GRATUITA 


S ì ■ Inviatemi assolutamente GRATIS per 10 giorni in esa- 
I ■ me e senza impegno di acquisto INTRODUZIONE AL 
COMPUTER, prima pubblicazione della serie CAPIRE IL 
COMPUTER, insieme all'esclusivo regalo a me riservato, alle 
condizioni indicate nella Garanzia qui a lato. 


151214 


NOME 

VIA 


N° 

CAP 

CITTA 



Per ricevere INTRODUZIONE AL COMPUTER con il suo 
regalo spedisca subito questo Buono. NON INVÌI DENARO! 


JL Tagli lungo la linea tratteggiata e spedisca questo Buono 
, al più presto in busta chiusa, Indirizzata a: CDE - Gruppo 
Mondadori - Casella Postale 100 - 25198 BRESCIA BS. 
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CARTOLINA-IDENTIKIT 



A migliaia (e aspettiamo pazienti quelle degli inevitabili ritardatari) ci 
sono tornate regolarmente compilate le coartoline-identikit, inserite nello 
scorso numero di LIST. 

Torneremo ad inserire la cartolina anche nel prossimo numero di ottobre 
per spronare anche i più pigri, i più restii e quelli che, per motivi vari, 
non hanno potuto inviarcela. 

Ciascun identikit ricevuto materializza, quasi fisicamente, il suo mitten¬ 
te, che noi vogliamo ringraziare per aver aderito alla nostra richiesta. 

Ora possiamo, con preziosa esattezza, individuare la stragrande maggio¬ 
ranza dei nostri lettori, potendoli raggruppare per età, luogo di residen¬ 
za e soprattutto, finalmente, per il tipo di computer posseduto. 

È evidente la grandissima utilità di tale «censimento», che ci suggerisce 
— e per alcuni versi ci impone — come orientarci più efficacemente nella 
scelta dei programmi e dei servizi da pubblicare. 

Ecco perché, nel sollecitare il lettore a compilare e spedire la cartolina, 
abbiamo affermato che nel farlo avrebbe agito nel suo stesso interesse. I 
programmi saranno il più possibile adatti al proprio computer, come pu¬ 
re le informazioni, gli aggiornamenti, le routines, che la rivista andrà 
pubblicando. 

Ma, attenzione! Nel chiedere ai lettori di inviare al più presto la cartoli¬ 
na, abbiamo assicurato che il farlo gli avrebbe riservato una grandissima 
sorpresa. Ebbene, la pausa estiva non ci ha consentito per questo nume¬ 
ro di LIST di fornire tutti i dettagli, come avremmo voluto, tuttavia ri¬ 
teniamo che il lettore accorto comprenderà al volo di aver ipotecato col 
semplice invio della cartolina, un futuro di agevolazioni di grande inte¬ 
resse e valore, anche economico. 

Si affrettino quindi i ritardatari a spedire la cartolina. 
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AMIGA 500 

il primo home con 
16/32 bit 
e multitasking 


Alcuni cenni tecnici 

Il disk drive di cui e dotato il nuovo Ami- 


RASSEGNA 

INTERNAZIONALE DELLA STAMPA SPECIALIZZATA 

a cura di Renzo Rubeo 


ga 500 è di tipo «micro» da 3.5 pollici, 
con una capacità di memorizzazione di 
880 Kbytes formattati, che si integra per¬ 
fettamente con la tastiera di tipo esteso di 
cui l'Amiga 500 è dotato. 

Il monitor può essere sostituito da un co¬ 
munissimo TV color purché a questo ven¬ 
ga aggiunto un modulatore Pai addiziona- 


I 




amiglia 

cresce 

ancora 


di Bob Felton 


di «AMIGA» 

Introduzione 

L’Amiga 500 è il primo home computer 
con 16/32 bit e multitasking. Nella confi¬ 
gurazione di base esso è dotato di 0.75 
Megabytes di memoria, di cui 0.5 sono 
per la memoria centrale e 256 Kbytes so¬ 
no «dedicati» al sistema operativo. 

Tale configurazione può essere espansa di 
altri 512 Kbytes grazie all’aggiunta di una 
scheda di estensione, la cosiddetta «plug- 
in card». 


le. 

La CPU dell’Amiga è il noto 68000 che 
viene supportata nel suo «lavoro» da ben 
tre coprocessori indipendenti: uno per la 
grafica, uno per la gestione dei dati inter¬ 
ni e uno per la comunicazione. 

Inoltre, il sistema operativo AmigaDOS 
permette di lavorare in multitasking, ov¬ 
vero (come tutti saprete ma ricordarlo 
non guasta mai) è possibile gestire più 
programmi contemporaneamente. 

Tutte le funzioni del computer sono con¬ 
trollate dal mouse (ormai una caratteristi¬ 
ca della famiglia Amiga), utilizzando lo 
schermo per selezionare la funzione desi¬ 
derata. 

Generalmente quando uno sente parlare 
dell’Amiga, chissà perché pensa immedia¬ 
tamente alla grafica. 

Bene, l’Amiga 500 è capace di sviluppare 
una grafica eccezionale grazie allo speciale 
processore dedicato chiamato «Denise», 
un bit bitter per il trasferimento veloce 
dei dati che può disegnare fino a 100 mi¬ 
lioni di pixel al secondo. 

È possibile accedere ai suoi dati da tre 
differenti fonti, consentendo al computer 
di generare sequenze di grafica animata 
alla velocità di un normale fotogramma 
cinematografico. 

Il video processore «Agnus» permette di 
avere sullo schermo una risoluzione di 
640x512 pixel in 16 colori, grazie a cui è 
possibile ottenere 4096 sfumature diverse 
di colore. 

È possibile, inoltre, ad una risoluzione 
più bassa visualizzare tutte le 4096 sfuma¬ 
ture diverse di colore contemporaneamen¬ 
te. 

Grazie a «Paula», uno speciale processore 
dedicato alla gestione delle interfacce e la 
gestione dell’imput e dell’output dei dati, 
ottenere flussi interni di dati non rappre- 
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senta certo un problema per la CPU 
68000 a 16/32 bit. 

«Paula» inoltre gestisce l’I/O audio e può 
gestire sistemi hi-fi e sintetizzatori ad alta 
qualità: infatti possiede ben quattro canali 
che hanno il compito di gestire il suono 
sintetizzato tramite due uscite stereo sepa¬ 
rate. 

C’è da osservare che il convertitore 
analogico/digitale per la riproduzione di 



CPU 

Motorola 68000, 16/32 bit 

Velocità di clock 

7.1h MHz 

Coprocessori 

Sistema di tre chip coprocessori per 
DMA, video, grafica e suono. 

Memoria 

512 K RAM standard, espandibile inter¬ 
namente a 1 MB con la scheda opziona¬ 
le A 501 ed esternamente fino a 8 MB. 

ROM 

256 Kbytes 

Interfacce 

Mouse/Joystick/Paddle 
Seriale (RS 232 IBM compatibile) 

Video (RGB analogico, RGBI) 

Monitor composito monocromatico 
Audio Stereo 
Espansioni RAM 
Disk driver esterni 

Bus di espansione Amiga (connettore 
a 86 pin) 

Tastiera 

Integrata, 96 tasti. 

Include: 10 tasti funzione, tastierino 
numerico separato, tastierino controllo 
cursore separato e tasto Help. 

Mouse 

Optomeccanico, a due pulsanti. 


■ 


fonti sonore generate da sistemi stereo è 
già integrato direttamente nell’Amiga 500. 
Analogo è l’interfacciamento dei segnali 
video, provenienti sia da telecamera che 
da videoregistratore, nonché dal segnale 
audio generato da un microfono. 

Una particolare interfaccia permette l’in¬ 
gresso della voce umana e della musica in 
Amiga tramite il microfono, consentendo¬ 
ne la riproduzione e la memorizzazione in 
modo originale o manipolato. 


Scheda tecnica 


Disk Drive 

1 da 3.5 pollici 

Capacità: 880 Kbytes formattati. 

Drive esterni 

1 floppy da 3.5 pollici e 1 floppy da 
5.25 pollici per formato MS-DOS 

Diplay Video 

625 linee/frequenza verticale 50 Hz 
coprocessore grafico con modi beam 
synched draw, fili, e move, massimo 
512 kbytes di memoria video palette di 
4096 colori, massimo 6 bitplanes, 8 
sprite per scanline. 

Modi testo 

modi standard: 

80 caratteri/25 linee 
60 caratteri/25 linee 
internazionale: 

80 caratteri/32 linee 
60 caratteri/32 linee 
Sono selezionabili diverse dimensioni 
e tipi di carattere; il colore dello scher¬ 
mo è definibile dall'utente. 

Modi grafica 

320 x 256 pixel, palette di 32 colori tra 
4096, senza interlacciamento. 

640 x 256 pixel, palette di 16 colori tra 
4096, senza interlacciamento. 

640x512 pixel, palette di 32 colori tra 
4096, interlacciamento. 

320 x 256 pixel, modo Hold and Modify 
(HAM). Tutti ì 4096 colori visualizzabili. 
320x512 pixel, modo Hold and Modify 
(HAM) interlacciato. Tutti i 4096 colori 
visualizzabili. 


AMIGA 500 

La 

nostra 

valutazione 


Cominciamo dal prezzo: questo modello 
base costa, senza monitor, lire 950.000 
IVA esclusa. 

Indubbiamente questa macchina presenta 
delle caratteristiche tecniche molto valide 
e il rapporto prezzo/prestazioni ci sembra 
molto vantaggioso. 

Comunque vi rimandiamo, per qualche 
conclusione più «concreta» a quando pro¬ 
veremo la macchina nell’apposita rubrica. 





Suono 

4 canali audio indipendenti configurati 
come canali audio destro e sinistro ri¬ 
producono illimitate forme d'onda 
complesse, buffer per il suono di 400 
Kbytes nominali, massimo 512 Kbytes 
convertitore D/A a 8 bit e filtro passa 
basso (7.5 KHz, 12 db/Oct). 

Funzione Orologio Calendario 

Interno, con batteria in tampone (op¬ 
zionale) 

Voce 

Periferica interna testo voce in inglese, 
controlli per rate pitch, volume, infles¬ 
sione e maschile/femminile. 

Software di sistema 

Multitasking, include AmigaDOS, inter¬ 
faccia utente a finestre Workbench, 
command line interpreter CLI, Amiga- 
BASIC della Microsoft capace di sup¬ 
portare la grafica, il suono e la caratte¬ 
ristica a finestre della macchina. 


Materiale incluso 

La macchina è fornita con tastiera, 
mouse, alimentatore, manuale di intro¬ 
duzione, manuale di AmigaBASIC ed 
utility su due floppy disk da 3.5 pollici. 


Amiga 500 

Riportiamo in una scheda tecnica di semplice e rapida 
consultazione , tutte le caratteristiche dell 9 Amiga 500. 
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AMIGA 2000 

La 

nostra 

valutazione 

Il secondo nuovo «componente» della fa¬ 
miglia AMIGA che vi presentiamo è il 
modello 2000. 

A noi questo modello dell’Amiga 2000, 
almeno stando alle caratteristiche esposte 
nella scheda tecnica fornite dalla casa 
stessa sembra abbastanza valido. 

A testimonianza di ciò c’è il fatto che 
l’Amiga 2000 è anche MS-DOS compati¬ 
bile grazie alla Amiga Bridgeboard e che 
il software di sistema incluso con la mac¬ 
china è estremamente valido. 

Comunque, cari lettori a voi spetterà 
l’«ardua» sentenza... 



Amiga 2000 

Anche per l'Amiga 2000 riportiamo una scheda tecnica , 
di semplice e rapida consultazione. 



Scheda tecnica 



CPU 

Motorola 68000, 16/32 bit 

Velocità di clock 
7.14 MHz 

Coprocessori 

Sistema video di tre chip coprocessori 
per DMA, video, grafica e suono. 

Memoria 

1 Megabyte RAM standard, espandibile 
on board fino a 8 Megabyte. 

Rom 

256 Kbyte 

Interfacce 

Tastiere: Mouse/Joystick/Paddle — Se¬ 
riale IBM compatibile — Video RGB, 
RBGI — Canali audio — Disk drive 
esterno. 

Slot di sistema 

Bus CPU AMIGA: 1 slot per estensioni 
della CPU. 

Bus di sistema AMIGA: 5 slot autocon- 
figuranti 

Bus di sistema secondari: 2 slot PC 
IBM AT compatibili; 2 slot PC IBM XT 
compatibili. 


Slot video 

1 slot video per condificatori NISC/PAL 
interni per monitor composito. 

Tastiera 

Separata, 96 tasti. Si compone di 10 
tasti di funzione, tastierino numerico 
separato e tastierino controllo cursore 
separato. Disponibile inoltre il tasto di 
HELP. 

Mouse 

Optomeccanico a due pulsanti. 

Disk Drive 

1 x3.5 pollici con 880 K formattati. Ag¬ 
giuntivi opzionali 1 x3.5 pollici 1 x5.25 
pollici. 

Display Video 

Modi testo: 

modo standard: 80 caratteri/25 linee; 
60 caratteri/25 linee 
internazionale: 80 caratteri/32 linee; 60 
caratteri/32 linee 

Modi grafica 

320x256 pixel palette 32 colori tra 
4096 

640x256 pixel palette di 16 colori tra 
4096 

320x512 pixel, palette di 32 colori tra 
4096 


640x512 pixel, palette di 16 colori tra 
4096 

320x256 pixel, modo Half and Modify 
(HAM). Tutti i 4096 colori visualizzabili 
320x512 pixel, modo Half And Modify 
(HAM) interlacciato. Tutti i 4096 colori 
visualizzabili 

Suono 

4 canali audio indipendenti configurati 
come canali audio destro e sinistro ri¬ 
producono illimitate forme d’onda 
complesse, buffer per il suono di 400 
Kbytes. Convertitore D/A a 8 bit con fil¬ 
tro passa basso (7.5 Khz, 12 db/Oct). 

Funzione Orologio/Calendario 

Interno, con batteria in tampone 

Voce 

Periferica interna testo-voce in inglese, 
controlli per rate, pitch, volume, infles¬ 
sione maschile e femminile. 

Software di sistema 

Multitasking, include AmigaDOS, inter¬ 
faccia utente a finestre WORKBENCH, 
command line interpreter CLI e l'Ami- 
gaBASIC della MICROSOFT capace di 
supportare la grafica, il suono e le fi¬ 
nestre delle macchine 
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AMIGA 2000 

è l’architettura O.S.A. 



Il Commodore Amiga 2000 è un compu¬ 
ter dotato di CPU, sistema operativo, lin¬ 
guaggi ed una elaborazione dati «aperta» 
a qualsiasi tipo di interfaccia: O.S.A. si¬ 
gnifica «Opera System Architecture» ov¬ 
vero «sistema ad architettura aperta». 

In pratica questo sta ad indicare che Ami¬ 
ga 2000, con il suo ingegnoso sistema di 
slots e bus, può essere espansa oltre il 
«mondo» di Amiga con l’aggiunta virtua¬ 
le di tutti i processori e sistemi operativi 
del «mondo» PC, anche a livello di work¬ 
station. 


Alcuni cenni tecnici 


Amiga 2000 lavora con una CPU 68000, a 
16 (32) bit della Motorola. 

Ad esso sono affiancati tre coprocessori 
indipendenti per la gestione video, DMA, 
la grafica ed il suono. 

Il sistema operativo multitasking consente 
il funzionamento contemporaneo di più 
programmi e può essere espanso con sche¬ 
de MS-DOS per gestire in una apposita 
«window» i programmi MS-DOS. 

Il modello base di Amiga 2000 ha 1 Mby- 
tes di memoria RAM che è possibile 
espandere internamente fino a oltre 9 me- 
gabytes. 

Il floppy disk integrato nell’Amiga 2000 è 
un microfloppy drive da 880 Kbytes. 


Le possibilità di espansione 


I nove slots liberi possono accettare sia 
espansioni in «formato» Amiga sia schede 
con altri microprocessori. 

Ad esempio i microprocessori 8088, 
80286, 80386 della INTEL e i modelli 
68010 , 68020, 68030 della MOTOROLA. 
Da non dimenticare i processori matema¬ 
tici quali 8087, 80287, 68881. Per sostene¬ 
re l’integrazione di altri processori, Amiga 
2000 ha due bus di sistema sovrapposti, 
collegati tramite una scheda «ponte». 

È inoltre disponibile una scheda con una 
CPU 8088 che può controllare un bus 
IBM compatibile. Questa scheda è dotata 
di una propria memoria indipendente, 
una sua interfaccia e un controller. Que¬ 
sto sta a significare che Amiga, al suo in¬ 


terno, possiede un PC indipendente; in 
questo PC interno il sistema MS-DOS si 
integra con una finestra di Amiga DOS e 
funziona come un singolo «task» 
( = lavoro). 

Nelle schede «ponte» già disponibili, 8088 
e 80286 comunicano (come altri micropro¬ 
cessori), attraverso una RAM duale, con 
il 68000 e possono controllare ulteriori 
schede di espansione PC, ad esempio la 
scheda grafica EGA (Enhanced Graphic 
Adapter). 

Le schede ponte sono cosi un legame tra i 
due mondi: il mondo Amiga e il mondo 
PC. 

Ciò rende Amiga un perfetto sistema ibri¬ 
do che combina entrambe le CPU. 

La Commodore, comunque, non intende 
creare da sola tutte le possibili schede in- 
terfacciabili con il mondo Amiga bensì 
vede la struttura aperta di Amiga come 
una sfida nei confronti di tutti gli interes¬ 
sati allo sviluppo del mondo dei compu- 
ters. 

Questi «sfidanti» possono usare l’architet¬ 
tura «O.S.A.» come una base ad alta tec¬ 
nologia per realizzazioni rapide delle pro¬ 
prie idee. 

Un esempio di ciò è rappresentato dalla 
scheda con 68020 per Amiga, offerta da 
diverse ditte americane, o dalla turbo 
card. 

Integrata da un coprocessore matematico 
e dalla turbo card, Amiga 2000 diventa 
un computer a 32 bit reali, con un clock 
di 14 MHz. 

Il sistema operativo multitasking permette 
di eseguire più programmi contempora¬ 
neamente come, ad esempio, scrivere un 
testo ed elaborare statistiche allo stesso 
tempo. 

L’Amiga integra il proprio software. Le 
sue capacità di mutlitasking (grazie ad 
AmigaDOS) permettono una possibilità 
interessante: scambiare dati tra program¬ 
mi in esecuzione contemporanea. 

L’Amiga 2000 nella versione base è ven¬ 
duto al prezzo di Lit. 2.550.000 + IVA 
ed include: 

— Unità centrale 

— 1 Megabyte di memoria RAM 

— 1 floppy disk da 3.5 pollici 

— 1 tastiera a 96 tasti 

— Mouse 

— Monitor a colori modello 1081 


Tra un listato e l'altro... 

NESPRESSO 

Finalmente 
un vero espresso 
in ufficio 

Ogni ufficio, laboratorio, studio pro¬ 
fessionale, è ormai diventato hi-tech: 
computer, fotocopiatrici, telecopier e 
mille altri marchingegni elettronici rie¬ 
scono a far diventare il lavoro meno 
faticoso, più piacevole, più efficiente. 
Non altrettanto è avvenuto per il pic¬ 
colo, ma importantissimo «rito» della 
vita lavorativa: il caffè. Caffè espresso 
naturalmente, almeno qui in Italia. 
Un’operazione complessa con risultati 
alterni, ma il più delle volte deludenti. 
Si è cercato sino ad ora di rimediare 
con soluzioni di ripiego: distributori 
automatici, bollitori, macchinette di 
ogni genere, la moka portata da casa 
oppure il caffè chiamato al bar. In 
quest’ultimo caso, anche se qualità è 
buona, bisogna spesso attendere e il 
servizio nelle tazzine-thermos lascia al¬ 
quanto a desiderare. 

La soluzione è arrivata ora — dopo 
anni di ricerche e studi — dalla NE¬ 
SPRESSO S.A., una società del grup¬ 
po Nestlè, numero uno mondiale per i 
prodotti alimentari. Si tratta di un ser¬ 
vizio completo — miscela, macchina, 
tazzine e accessori — che garantisce la 
possibilità di preparare un vero espres¬ 
so all’italiana, anzi un NESPRESSO, 
esattamente come avviene nei migliori 
bar con la «mano» dei più abili caffet¬ 
tieri. 



Per infomazioni: 

SECI M.S. & L. 

FORO BUON APARTE 68 - 20121 MILANO 
TEL. (02) 809496 FAX (02) 872962 
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Apple Computers 
e il Desk Top Publiching 


MICROELETTRONICA ’87 

Fiera di Vicenza - 8/11 ottobre 1987 
CON IL PATROCINIO DEL MINISTERO DELLA PUBBLICA ISTRUZIONE 


RASSEGNA D! SOLUZIONI INFORMATICHE PER GESTIRE 
E ORGANIZZARE LA FORMAZIONE E L'EDUCAZIONE 


PER UNA SCUOLA INTESA COME ORGANIZZAZIONE MODERNA E 
AVANZATA PERCHÉ CAPACE DI FORNIRE SERVIZI AMMINISTRATIVI E 
DIDATTICI FRA LORO INTEGRATI. CAPACE DI CREARE REALI PRO¬ 
CESSI DI AUTOMAZIONE DELL’INTERO CICLO DELL’ATTIVITÀ SCOLA¬ 
STICA. CAPACE DI COSTITUIRE LABORATORI MULTIMEDIALI PER LA 
RICERCA E LA DIDATTICA, DI ATTIVARE COLLEGAMENTI CON BAN¬ 
CHE DATI SPECIALIZZATE, DI UTILIZZARE RETI LOCALI, DI ESSERE 
PENSATA E PROGETTATA IN SPAZI INTELLIGENTI. 


l a Apple computers presenta nuove solu¬ 
zioni basate sui personal computers Ma¬ 
cintosh e sin terminali di stampa della 
Offset Italia per le aziende che sono state 
conquistate dall’editoria individuale (il 
desk top publiching). 

CìIi utenti principali di questa nuova tec¬ 
nologia saranno innanzitutto le tipografie 
e le copisterie che scelgono di specializzar¬ 
si nei servizi di pronto stampa, un merca¬ 
to in fortissima crescita sia negli Stati 
Uniti (oltre 20.(KX) esercizi) che in Europa 
(7.000 esercizi), ma sicuramente anche 
tutte le aziende, banche ed enti che sento¬ 
no il bisogno di un salto di qualità nella 
leggibilità e nell'Immagine della propria 
comunicazione interna ed esterna. 

I sistemi che la Apple computers e la Oli¬ 
sci Italia ha reso disponibile sul mercato 
sono: 

Kunner System - 

Un sistema basato su Macintosh SE e sul 
duplicatore Top Kunner, capace di 7.200 
copie orarie. 

In questo caso i listini, le circolari, la car¬ 
ta intestata e tutti i documenti impaginati 
con Macintosh e stampati con I aserWrite 
(38 font disponibili) sono immediatamente 
utilizzabili per generare le matrici di carta 
che Top Runner utilizzerà per la stampa 
in nero o a colori grazie ad un sistema a 
cartucce semplice e innovativo. 

II sistema consente anche di stampare con 
facilità biglietti per visita, business card e 
buste e sarà disponibile al prezzo di 52 
milioni di lire. 



Spriter System 


Questa soluzione è particolarmente indica¬ 
ta per l’utenza professionale. 

Basata su Macintosh SE c sulla piccola 
stampante offset Spriter capace di 25.(XX) 
copie orarie, particolarmente indicata 
quando la rapida consegna, e quindi la 
qualità del servizio sono importanti quan¬ 
to l’accuratezza di stampa. 

Il prezzo di questa soluzione è fissato in 
66 milioni. 


CONVEGNI 

L’AZIENDA SCUOLA: 

Processi di automazione e nuova or¬ 
ganizzazione del lavoro. 

Esperienze e progetti a confronto. 

SCUOLA E TECNOLOGIE 
INFORMATICHE: 

Nuove forme di acquisizione del sa¬ 
pere in ambienti integrati. 

Modelli ed esperienze a confronto. 

SEMINARI E 
WORKSHOP 

Laboratori integrati per la 
scuola e il territorio. 

Esperienze e dimostrazioni. Progetti 
a confronto. 

Nuovi libri di testo per 
ambienti didattici integrati. 

Tavola rotonda con autori di testo 
scolastici. 

Progetto Superlogo: 

Una metodologia di sviluppo coope¬ 
rativo e distribuzione telematica di 
software didattico. 


SONO STATI INVITATI 
I SEGUENTI RELATORI: 

1) Convegno «L’Azienda scuola»: 

— Prof. C. Bocchetti — responsabile 
progetto ITSOS «M. Curie» Cernu- 
sco S/N (Milano); 


— Dott. F. Tessaro — responsabile 
progetto di decentramento informa¬ 
tico del Provveditorato di Padova; 

— Prof. P. Romei — autore del testo 
«La scuola come organizzazione». 

— Dott. R. Santosuosso — Provvedi¬ 
tore agli Studi — Vicenza; 

— Dott. E. Caruso — Direzione Istru¬ 
zione Tecnica del Ministero della 
Pubblica Istruzione; 

— Prof. F. Illusi — Preside ITIS «Ma¬ 
lignai» — Udine. 

2) Convegno «Scuola e tecnologie»: 

— I.R.R.S.A.E. Veneto; 

— Prof. Giovanni Lariccia — Sisco- 
Sistemi Cognitivi, Roma; 

— Dott. Chiara Baratti — C.O.G.I. Mi¬ 
lano / Progetto Amadeus; 

— Prof. Eugenia Lodini — Università 
di Bologna / progetto I.D.A. 

— Dott. Davide Biolghini — coordina¬ 
tore Ass. Culturale Aspera Milano 
/ Progetto Amm.ne Comunale di 
Rozzano. 

3) Seminario su libri di testo per am¬ 
bienti integrati: 

— Prof. Carlo L. Bocchetti — Milano; 

— Prof. Giancarlo Mauri — Milano; 

— Prof. Mauro Palma — Roma; 

— Prof. Lucio Varagnolo — Venezia; 

— Prof. Michele Pellerey — Torino. 

4) Seminario su Progetto Superlogo: 

— Prof. Giovanni Lariccia — Sisco 
srl Roma 

5) Seminario su laboratori integrati 
per la Scuola e il Territorio: 

— Esperti del C.O.G.I. — Progetto 
Amadeus — Milano; 

— Esperti del progetto I.D.A. — Bolo¬ 
gna. 


Per informazioni contattare: 

Comitato organizzatore: Viale Trieste, 98 - 36100 Vicenza - Tel. 0444/5132299-969924. 
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Olivetti Prodest 

presenta PCI 


LIST è stato per voi 
alla conferenza stampa 
del gruppo* 

Olivetti Prodest S.p.A. 
per darvi in «realtime» 
l’ultimissima novità 
nel campo informatico. 


□ PCI il primo Home 
Computer italiano 
MS-DOS compatibile 

Polente, con un sistema operativo che lo 
rende compatibile con tutti i personal 
computer professionali e con lo standard 
di mercato, compatto e fornito di una bi¬ 
blioteca di programmi pressoché illimita¬ 
ta: questi sono i punti di forza di PCI, il 
primo honie computer italiano della nuo¬ 
va generazione. 


ideale per i piu svariati utilizzi di tutta la 
famiglia, PCI risponde anche alle esigenze 
di elaborazione dati per piccole attività 
commerciali, artigianali e professionali. 

Le principali caratteristiche tecniche di 
questa macchina sono: 512 Kbytes di me¬ 
moria RAM, con possibilità di espansione 
fino a 640 Kbytes; sistema operativo MS- 
DOS versione 3.2 (l’ultima n.d.r.) e disk 
driver da 3.5 pollici. 

Lio Mgmiica che il PC I e compatibile con 
i grandi personal computers professionali 
e adotta tutte le tecnologie più avanzate, 
come ad esempio i floppy da 3.5 pollici^ 
con capacità di memorizzazione di 720 
Kbytes che rappresentano ormai lo stan¬ 
dard di riferimento del futuro informatico 
(vedi i nuovi modelli dell’IBM). 

Una caratteristica chi; ci ha subito colpito 
di questa nuova macchina è la sua com¬ 
pattezza. Infatti il PCI si compone di so¬ 
lo due moduli, tastiera e monitor con pos¬ 
sibilità di disporre di un secondo floppy 
disk driver. 


Architettura Hardware; 
configurazione di base 

Kiassumiano in uno schema di semplice 
interpretazione l’architettura hardware del 
nuovo PCI. 


CARATTERISTICHE HARDWARE 

Microprocessore 

Nec V40; 8088 compatibile 

Frequenza di clock 

4.77/8 MHz settabile via software 

RAM utente 

256/512 Kbytes espandibili via bus 
connection a 640 Kbytes 

ROM 

32 Kbytes per diagnostica e Bios 
Tastiera 

83 tasti con sezione alfanumerica. 10 
tasti funzione e pad numerico 

Monitor 

Modi grafici CGA; 

— 640x200 B/W 

— 320x200 4 colori 

— 160x200 16 colori 


I ale caratteristica garantisce maggior or¬ 
dine e spazio sul tavolo di lavoro 
dell'utente. 

Per il PCI POlivetti Prodest ha apposita¬ 
mente allestito una biblioteca software di 
oltre 100 programmi, al quale vanno ag¬ 
giunti le migliaia di programmi già esi¬ 
stenti sul mercato. 

La distribuzione di questo personal com¬ 
puter avverrà nei tipici canali del prodotto 
consumer: negozi di elettrodomestici e 
HI-FI, grandi magazzini, negozi di cine- 
foto-ottica, computers shop. 


□ Floppy da 3.5: 

la scelta più avanzata 
per PCI 

Per il nuovo PCI l’OLIVETTI PRO¬ 
DEST ha scelto i floppy da 3.5 pollici, in 
luogo dei tradizionali floppy da 5.25 polli¬ 
ci. 

Tale scelta è dovuta alla volontà di offrire 
anche al grande pubblico la tecnologia più 
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Alfanumerico: 

— 80x25 

- 40x25 
Floppy disk 
3.5 pollici 
doppia traccia 
doppia traccia 
capacità: 720 Kb 

Joystick/Mouse 
In emulazione cursori 


Interfacce 

Parallela Centronics like 
Seriale RS-232 
Suolo (HI-FI) 

Floppy disk (FDU esterno da 5.25) 
Bus di espansione (IBM compatibile) 

Il box (li espansione 


Attraverso il bus di espansione è possibile 
connettere un box per una sola card 
small/half size. 

Il box potrà «ospitare» le seguenti opzio¬ 
ni: 


— RAM 

— LAN 

— MODEM 

— Graphics controller 

— CD ROM controller 

— HDU controller 

— TV/telematic adapter 




avanzata attualmente disponibile in tal 
campo. I nuovi floppy disks da 3.5 pollici 
presentano indubbiamente dei vantaggi si¬ 
gnificativi. 

Innanzitutto tali dispositivi sono capaci di 
contenere il doppio delle informazioni ri¬ 
spetto ad un floppy disk da 5.25 pollici: 
720 Kbytes contro 260 Kbytes. 

Inoltre i dischetti da 3.5 pollici sono dota¬ 
ti di una protezione in plastica che con¬ 
sente di tenerli, ad esempio, comodamen¬ 
te in lasca e di trasportarli ovunque senza 
rischi, proteggendoli cosi dai «maltratta¬ 
menti» quotidiani cui sottoponiamo i no¬ 
stri poveri floppy. 

Vi c inoltre la possibilità di trasferire fa¬ 
cilmente le informazioni dai vecchi ai 
nuovi floppy. 

Anche per quanto riguarda Phardware 
POLIVETTI PRODEST ha operaio una 
scelta di tipo innovativo: infatti il PCI è 
dotato di un drive di tipo slim, cioè di ti¬ 
po «sottile» realizzato attraverso la massi¬ 
ma integra/ione dei compoenenti e dei cir¬ 
cuiti elettronici che lo costituiscono. 


□ Perché 

nasce il PCI 

Il grande mercato delle famiglie e della 
miriade di piccole attività commerciali, ar- 
tiginali e professionali ha espresso esigen¬ 
ze nuove: potenza, compatibilità, pro¬ 
grammi, prezzo contenuto. 

Sono questi i criteri che hanno guidato la 
progettazione del PCI, che sarà disponibi¬ 
le sul mercato italiano a partire da questo 
mese e che sarà poi introdotto progressi¬ 
vamente, insieme a tutta la gamma OLI¬ 
VETTI PRODEST sugli altri mercati eu¬ 
ropei . 

— PCI nasce con tutte le caratteristiche 
per diventare uno standard di riferimento 
per il suo mercato. È un vero personal 
computer domestico che apre una nuova 
generazione: non un clone asiatico, non 
un giocattolo — ha commentato Sergio 
Messa, amministratore delegato di OLI¬ 
VETTI PRODEST — ma uno strumento 
potente e semplice da utilizzarsi nello stes¬ 
so tempo, dotato di un sistema operativo 
che lo rende praticamente compatibile con 
tutti i personal eomputers professionali. 


□ La biblioteca 

software del PCI 


il sistema operativo fornito assieme alla 
macchina è PMS-DOS versione 3.2 ovvero 
la stessa che il redattore sta usando per 
scrivere questo articolo. 

Ovviamente in ambiente MS-DOS potran¬ 
no essere eseguiti tutti i programmi che 
siano compatibili con la capacità di me¬ 
moria installata nel vosto PCI. 

A tal proposito ci permettiamo di ricor¬ 
darvi che la capacità minima di memoria 
richiesta per veder «girare» qualche cosa 
di decente su qualunque PC è di 512 k. 
Oltre alle centinaia di programmi già di¬ 
sponibili sul mercato, POLIVETTI PRO¬ 
DEST ha predisposto una biblioteca soft¬ 
ware originale la cui prima serie compren¬ 
de circa un centinaio di titoli. 

Vediamone qualcuno degno di nota. 

Tra i fogli elettronici, quelli che gli esperti 
chiamano più semplicemente «Spread¬ 
sheet» possiamo citare il «The Twin» e 
«Easy Working Planner». 

Per gli integrati, ovvero quei pacchetti 
software che riuniscono in un solo pro¬ 
dotto due o tre funzioni diverse, altrimen¬ 
ti disponibili in pacchetti separati, va ri¬ 
cordalo «Inteerated 7». 


Passiamo ora ai word processor, gioia e 
dolore di chiunque, come il sottoscritto 
abbia a che fare con la stesura di testi 
(ovvero articoli per LIST). 

Bene in questo campo la Prodest è ben 
«coperta»; infatti sono due i prodotti a 
disposizione dell'utente: «Volkswriter» e 
«Easy working Writer». 

Per il PCI, nel campo del software educa¬ 
tivo, ci sono a disposizione dell’utente al¬ 
cuni pacchetti veramente interessanti. 
Primo fra tutti una versione molto valida 
del linguaggio L.ogo ideato da S. Paperi 
con il preciso intento di insegnare ai bam¬ 
bini i fondamenti logici della programma¬ 
zione. 

Mentre per i programmatori più validi ed 
«esperti» che intendano fare delle applica¬ 
zioni di un certo livello è già pronto sul 
mercato il pacchetto «Turbo Assembler». 
Naturalmente con il PCI, cosi come per 
tutte le macchine in ambiente MS-DOS è 
possibile fare delle applicazioni grafiche 
molto interessanti. 

A tale scopo POLIVETTI PRODEST ha 
lanciato sul mercato vari pacchetti softwa¬ 
re quali ad esempio il «Chariman» che è 
molto utile per la gestione di grafici ri¬ 
guardanti, ad esempio, l’andamento di 
una certa azienda e i pacchetti Printshop 
e Graphic Library \/\\. 

I 'OLIVETTI PRODEST con il suo PCI 
lui anche pensato a colui che usa il calco¬ 
latore come uno strumento (e compagno) 
di lavoro. Per questo sono disponibili i 
vari pacchetti gestionali come «contabilità 
ordinaria», «Mailing List», «Fatturazione 
parametrica» e tanti altri. 

1 «dulcis in fondo», visto che comineia- 
vate già a preoccuparvi ecco i videogames 
per il PCI. 

Cìioite gente, gioite perché è possibile far 
«girare» sul vostro PC I tutti i più famosi 
e divertenti videogames già esistenti: da 
Pinball Consirueiion set a Chessmaste 
2(MX), da Starfight a Winter Cìames, da 
Pmgo a Grand Prix. 

| | Concludendo 

Dunque cari amici, il PCI e certamente 
un buon «partito». Basti considerare che 
al prezzo di un home computer si può 
avere a disposizione un PC compatibile 
(con tutti gli annessi e i connessi: ovvero 
software a volontà). 

C omunque anche per questa macchina vi 
rimandiamo ai prossimi numeri per la 
prova, per giudicarla più concretamente. 
Ciao!! 
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Nuove memorie di massa presentate 


dalla COMMODORE 


■ 



In occasione dell’ultimo CES, Consumer 
Electronics Show, tenutosi a Las Vegas 
(U.S.A.) la Commodore ha presentato 
due nuovi tipi di memorie di massa. 

Si tratta dei disk driver 1581 da 3.5 pollici 
e di un modulo di espansione di memoria, 
denominato 1764 RAM, per il Commodo¬ 
re 64. 

Il disk drive 1581 permette ai modelli 64. 
128, plus 4, 16 di utilizzare i floppy da 
3.5 pollici, che ormai si stanno proponen¬ 
do come nuovo standard di mercato, gra¬ 
zie anche alla loro elevata capacità di me¬ 
morizzazione (880 K). 

Inoltre, il driver 1581 è circa tre volte più 
veloce del drive 1541. 

Il costo di questo interessante accessorio è 
di 399 dollari. 

Molti utenti del Commodore 64 si sono 
spesso lamentati della scarsa disponibilità 
di memoria della loro macchina. 

Per rimediare a questo inconveniente, la 
Commodore ha annunciato il modulo 
espansione della memoria RAM per il 
C64. 

Il modulo 1764, che fornisce altri 256 K 
di memoria, è stato progettato per essere 
installato nella porta di espansione del 
C64. 

Il modulo, che costa 129 dollari, viene 
fornito assieme a 2 pacchetti software. 

Il primo è un sistema operativo per il di¬ 
sco (DOS), che è stato realizzato con il 
preciso intento di aiutare l’utente a sfrut¬ 
tare al meglio le potenzialità del modulo 
di espansione. 

Ciò significa che la memoria disponibile 
all’interno del modulo di espansione è 
usata come un nuovo floppy disk dal qua¬ 
le vengono frequentemente memorizzate e 
richiamate le informazioni. 

Il secondo programma, fornito assieme al¬ 
la cartuccia di espansione della RAM, è 
chiamato GEOS RAM DISK. 

Con questo programma è possibile utiliz¬ 
zare il popolare sistema operativo GEOS 
e le sue innumerevoli applicazioni. 

Infatti il GEOS, richiedendo numerosi ac¬ 
cessi all’unità a disco, ermette di utilizzare 
l’espansione di memoria come un RAM 
disk. 

I Per ulteriori informazioni: 

Commodore Italiana S.r.l. 

Via F.lli Gracchi 48 
20092 Cinisello Balsamo (MI) 
Tel.: 02/618321 


S.MAU. 

dal 16 al 21 settembre 
alla Fiera di Milano 

CONVEGNO SULL’ESPERIENZA 
DEL VIDEOTEL, in collaborazione 
con la SIP QUO VADIS HOMO?, 
in collaborazione con U.G.I.S. 
Segreteria S.M.A.U., 

Corso Venezia 49, 20121 Milano. 


CONGRESSO ANNUALE 
A.I.C.A. 

dal 30/9 al 2/10 a Trento 

Segreteria Unione Commercio 
Turismo e Attività di Servizio del¬ 
la Provincia Autonoma di Trento, 
responsabile Ivo Rossi, 

Via Solteri 74, 38100 Trento, 
tei. 0461/880111. 
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Inauguriamo un nuovo spazio dedicato alla recensione di 
quei libri che più possono interessare i lettori di LIST. 
Per quanto possibile, tali testi saranno scelti tra quelli se¬ 
gnalati nelle bibliografie dei singoli articoli via via pubbli¬ 
cati sulla rivista. 

Forniremo tutti i dati disponibili per un’eventuale acquisto 
dei volumi recensiti, evitando al lettore di trovarsi per le 
mani materiale scadente o troppo avanzato per le proprie 
esigenze. 

Speriamo che tale rubrica possa essere un valido aiuto 
per lo sviluppo della necessaria «cultura informatica». 
Spesso capita di rileggere libri scientifici e di accorgersi 
che ad ogni lettura si acquisisce qualcosa in più delle vol¬ 
te precedenti! 

Non c’è da scoraggiarsi quindi, se ad una prima lettura 
non tutto è chiaro. Lo sarà successivamente. 


di Fabio Scafati 
e Fabrizio Nicolai 



RETI PER DATI 

di L. Lenzini, C. Boreggi 
Sarin-Marsilio Editori 
269 pagine, 50.000 lire 


Gli autori: 

Luciano Lenzini, laureato in Fisica 
all'Università di Pisa, dal 1970 lavora 
presso l’Istituto CNUCE del Consiglio 
Nazionale delle Ricerche (CNR), dove 
ricopre l’incarico di responsabile del 
reparto «Reti di elaboratori». Nel 73 e 
74 ha lavorato sulle architetture di 
rete presso il Centro scientifico IBM 
di Cambridge (USA). Molteplici sono i 
progetti che ha diretto: R PC NET, 
STELLA, OSIRIDE, SA IN ET, ESPAIT. 


Dal 1984 è docente, insieme al Prof. 
Turini, del corso di Comunicazioni 
Elettriche presso l’Istituto di Scienze 
dell’lnformaz. dell’Università di Pisa. 

Claudio Boreggi, laureato in inge¬ 
gneria all’Università di Roma, dal 
1973 lavora presso la SIP in qualità di 
responsabile, nell’ambito della linea 
marketing della Direzione Generale, 
del settore Studio e sperimentazione 
di nuovi prodotti e servizi. Ha parteci¬ 
pato ai lavori della commissione 
dell’Istituto superiore poste e teleco¬ 
municazioni del Ministero PPTT, per 
la definizione delle specifiche relative 
alla rete pubblica per dati italiana Ita- 
pao. È membro della fondazione Eu¬ 
rodata e partecipa ai lavori del CEPT, 
CCITT e INSIS. È autore di numerosi 
articoli nel campo della trasmissione 
dati e dei servizi telematici. 


A chi è destinato 

Il testo è rivolto principalmente a chi 
desidera costruirsi delle solide basi 
nell’area delle comunicazioni. È ovvio 
che per la vastità della materia «Reti 
per Dati» non sarà, da solo, sufficien¬ 
te ad esaurire l'argomento (infatti il 
corso di Comunicazioni Elettriche te¬ 
nuto a Pisa gli affianca altri 3 testi, 


tutti in lingua inglese). In ogni caso, 
non sono richieste specifiche nozioni 
di base: è sufficiente una piccola co¬ 
noscenza delle problematiche relative 
alla comunicazione tra sistemi. 


Descrizione 

Il libro si articola in 9 capitoli: 

Il primo è un’introduzione alle reti di 
elaboratori. Perché sono nate e quale 
il loro utilizzo, con particolare riferi¬ 
mento alla problematica degli stan- 
dards, sempre presente nel susse¬ 
guirsi dei capitoli. 

Il secondo capitolo è un vero e pro¬ 
prio «minicorso» di trasmissione dati. 
Illustra i concetti di trasmissione sin¬ 
crona e asincrona; banda base e ban¬ 
da fonica; velocità di trasmissione di 
un modem; errori. Segue la parte sui 
supporti utilizzati per la trasmissione 
dati, con le varie possibilità a dispo¬ 
sizione dell’utente. 

Il terzo e quarto capitolo sono il «cuo¬ 
re» del libro. Qui vengono ampiamen¬ 
te trattate le procedure di telecomuni¬ 
cazione e la commutazione di circuito 
e di pacchetto, con confronti diretti. 

Il quinto, sesto e ottavo capitolo co¬ 
stituiscono una completa ed esau¬ 
riente descrizione della rete a com¬ 
mutazione di pacchetto Itapac. Con 
tanto di esempi tariffari per terminali 
X28 e X25. 

Il settimo spiega cosa sono i conver¬ 
titori di protocollo, quali problemati¬ 
che sono destinati a risolvere e in 
quale modo. 

Il nono ed ultimo capitolo conclude il 
volume toccando l’argomento critico 
delle comunicazioni: la compatibilità 
tra architetture diverse. Per risolvere 
tale problematica, nel 1977 è nata ad 
opera dell’ISO (International Standard 
Organization), una sottocommissione 
denominata OSI Open System Inter- 
connection), la quale si prefigge di 
definire una architettura standard di 
rete. 


Giudizio 

Il testo è esemplare sotto ogni punto 
di vista. La veste tipografica è 
senz’altro adeguata: disegni a più co¬ 
lori molto curati, formato «quadrato» 
che ne garantisce le corrette propor¬ 
zioni, carta patinata antiriflesso di 
pregio, stampa sofisticata. Chiarezza 
espositiva a livello «ameri¬ 
cano», ovvero la più efficace e collau¬ 
data. 

Certamente il prezzo riflette, più che 
giustamente, l’elevatissimo livello di 
questa pubblicazione. 
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COSTRUIRE UN 
SISTEMA ESPERTO 




COSTRUIRE UN 
SISTEMA ESPERTO 
di Alessandro Mazzetti 
Franco Muzzio Editore 
165 pagine, L. 20.000 


L’Intelligenza Artificiale è rimasta per 
molti anni chiusa all'interno dei labo¬ 
ratori specializzati e segregata a di¬ 
sciplina oggetto di studio per pochi 
eletti. Con il prosieguo degli anni, 
l’I.A. è lentamente emersa dal grembo 
dei ricercatori e resa scienza di pub¬ 
blico dominio, grazie anche al fiorire 
di pubblicazioni specializzate. «CO¬ 
STRUIRE UN SISTEMA ESPERTO»», 
scritto da Alessandro Mazzetti ed edi¬ 
to da Franco Muzzio, si pone ad un li¬ 
vello qualitativamente superiore per 
la chiarezza espositiva, la trattazione 
completa dei singoli elementari argo¬ 
menti e la capacità di sceverare da 
una disciplina complessa come l’In¬ 
telligenza Artificiale, i concetti co¬ 
struttivi basilari, assimilabili ad ele¬ 
mentari procedure algoritmiche scrit¬ 
te in BASIC. 

Descrizione 

Il libro è articolato in tre parti sapien¬ 
temente ordinate in sequenza, parten¬ 
do dai presupposti teorici fino alla 
applicazione pratica e alla costruzio¬ 
ne di un completo sistema esperto, 
per terminare con una sommaria de¬ 
scrizione degli expert Systems, già 
esistenti ed utiizzati nelle varie disci¬ 
pline. 

La prima parte descrive teoricamente 
i singoli elementi di uno Shell, il mo¬ 
tore inferenziale, l’interfacciamento 
con l’utente e le elementari regole di 
produzione che determinano il ragio¬ 
namento euristico da parte del siste¬ 
ma. Infine la base di conoscenza, sua 
struttura e tecniche per crearne con 
ingegnose metodologie. 

La seconda parte è caratterizzata da 
una serie di applicazioni pratiche dei 


modelli teorici visti nella prima: il mo¬ 
tore inferenziale, l’interfaccia utente, 
la base di conoscenza, vengono tutti 
rappresentati in forma algoritmica e 
modulare, in un basic praticamente 
standard e quindi eseguibili sulla 
maggior parte dei microcomputers, 
seppure con qualche modifica. 

Alla fine il lettore potrà disporre di un 
completo sistema esperto. Chiudono 
questa esemplare pubblicazione, al¬ 
cune pagine sulla descrizione dei si¬ 
stemi esperti più famosi e attualmen¬ 
te funzionanti nei laboratori di ricer¬ 
ca, evidenziando la loro versatilità in 
ogni settore scientifico e non. 

Giudizio 

«COSTRUIRE UN SISTEMA ESPER¬ 
TO»» è un libro che consigliamo calda¬ 
mente a chi non essendo in possesso 
di nozioni indispensabili per una com¬ 
pleta comprensione dell’Intelligenza 
Artificiale, intende iniziare in maniera 
semplice e costruttiva, con la possibi¬ 
lità di concretizzare sulla tastiera 
quanto appreso sulle pagine. 


! L MODEM 

TEORIA 

FUNZIONAMENTO 
E APPLICAZIONI 


Mann MalcaiV» 


W JACKSON 


IL MODEM 

di Mario Malcangi 
Gruppo Editoriale Jackson 
168 pagine, L. 28.000 


A chi è destinato 

Molti di voi avranno sentito parlare di 
modem, (se non altro per aver visto 
«Wargames»»!) e si saranno chiesti co¬ 
me diavolo facesse il protagonista, e 
se non fosse pura fantasia, a colle¬ 
garsi in modo automatico alle più 
svariate banche dati per accedere ad 
informazioni riservate (memorabile 
l’accesso all’archivio scolastico con 
conseguente falsificazione dei voti). 


Molti di voi si saranno anche chiesti 
quanti milioni ci sarebbero voluti per 
acquistare tutto queH’«armamentario»> 
o per autocostruirlo. 

Beh, in questo libro troverete molte 
più risposte di quanto non immagi¬ 
niate. È una vera miniera di dati e 
schemi esplicativi che chiariscono fi¬ 
nalmente, una volta per tutte, le varie 
funzionalità e aspetti hardware/soft¬ 
ware dei modems in commercio. 
Senz'altro alla portata di chiunque, 
tranne che per alcuni aspetti pretta¬ 
mente tecnici che non interessano i 
più, il volume costituisce una guida 
pratica e chiara di cosa è la trasmis¬ 
sione dati e, soprattutto, quali sono i 
principi che regolano il funzionamen¬ 
to di un modem. 

Descrizione generale 

Il volume si articola in 5 capitoli: 

Il primo introduce alla trasmissione 
dei dati e alla descrizione della linea 
telefonica con la classificazione dei 
vari tipi di canale. 

Il secondo e terzo capitolo analizzano 
a fondo il funzionamento, l’architettu¬ 
ra e le prestazioni di un modem vero 
e proprio. 

Nessun particolare viene tralasciato: 
si analizzano i vari tipi di modulazio¬ 
ne, la portante, lo schema hardware e 
i circuiti d’interfaccia con relative di¬ 
stanze e velocità ammissibili. 
Vengono poi trattate le caratteristi¬ 
che più avanzate presenti sui mo¬ 
dems più sofisticati, quali l’equalizza- 
zione, gli errori di trasmissione, lo 
scrambling e i modems intelligenti, di 
cui viene riportato un progetto com¬ 
pleto in appendice, con tanto di lista¬ 
to in linguaggio macchina. 

Il quarto capitolo è una panoramica 
sulle applicazioni speciali, ovvero sui 
modems ottici, per radiofrequenza e 
in superbanda. 

Con il quinto capitolo, che tratta gli 
standard di interfacciamento CCITT, 
BELL ed EIA, si conclude il volume. 

Giudizio 

Il testo Malcangi è nel complesso va¬ 
lido e completo. In un solo punto la¬ 
scia perplessi: il quarto capitolo è co¬ 
stituito da appena 3 pagine! Pregevo¬ 
le il progetto in appendice per la pro¬ 
grammazione e l'interfacciamento di 
un modem single-board con un Apple 
e un PC IBM. 

Il prezzo, se rapportato alla «mole» e 
alla qualità tipografica dell’edizione 
(a questo prezzo non si ammettono 
disegnini fatti a mano come quelli 
delle pagg. 2, 9, 16 e 37), ci sembra 
eccessivo. 
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INTRODUZIONE AL SISTEMA 


MS-DOS 


di P. Ciancarini 


Iniziamo da questo numero una rubrica 
dedicata al sistema operativo MS-DOS, 
quello dei personal IBM compatibili, che 
recentemente il Ministero della Pubblica 
Istruzione ha scelto come computer 
standard da usare nella Scuola Superiore. 


Qual è il personal computer più diffuso nel mondo? Dob¬ 
biamo confessare che, tutto sommato, non lo sappiamo: 
mentre il mercato degli home computer è nettamente do¬ 
minato dal Commodore 64, quello dei personal non è così 
ben caratterizzato. Esiste però uno standard di massima 
che è il più diffuso: quello dei cosiddetti IBM-XT compati¬ 
bili, che sono quei computer che si sono conformati alle 
specifiche tecniche del personal computer della IBM, di¬ 
venuto rapidamente uno dei punti di riferimento del mer¬ 
cato. Tra questi, uno dei più famosi in Italia è l’elaborato¬ 
re 

M24 della Olivetti 


L’interesse di LIST per questo tipo di computer deriva dal 
fatto che il Ministero della P.l. lo ha scelto come compu¬ 
ter standard della scuola superiore: entro quest’anno tutte 
le scuole italiane ne avranno a disposizione almeno uno 
per la didattica. 

Ma che cos'è un computer IBM-compatibile? 

Per rispondere a questa domanda, occorre che sia chiara 
la distinzione tra la nozione di hardware e quella di soft¬ 
ware. 



Lo hardware è l’insieme dei dispositivi concreti che com¬ 
pongono un sistema di elaborazione: tastiera, video, pro¬ 
cessore, unità di memoria, stampanti, dischetti, ecc. In 
parole povere, tutto ciò che si può toccare, che ha concre¬ 
tezza, può essere classificato hardware. Viceversa, il soft¬ 
ware non è concreto nel senso comune della parola: infat¬ 
ti è costituito dall’insieme dei programmi occorenti per 
dare vita alla macchina, cioè per farla funzionare. Diciamo 
che il software non è concreto soprattutto perchè sono le 
sue proprietà astratte quelle che lo contraddistinguono. 
Lo hardware sta al software come il cervello sta alla men¬ 
te, come l’orchestra sta allo spartito, come le pagine di 
un libro stanno alle idee che costituiscono il loro contenu¬ 
to. 



Schema logico di un elaboratore 


Un I.B.M. XT compatibile non è altro che un computer con 
parte hardware esattamente specificata come segue: 

processore: INTEL 8086, a 16 bit. 

memoria RAM: da un minimo di 256K ad un massimo di 
640Kbyte. 

memoria permanente: uno o due drive da 340K formattati, 
ed eventualmente un disco rigido da 10 o più Megabyte. 

Queste sono semplicemente le caratteristiche principali 
prefissate: ne esistono molte altre, tra le quali vogliamo 
sottolineare la grafica. Si noti che, a complicare ulterior¬ 
mente le cose per chi volosse studiare approfonditamente 
questi elaboratori, i computer di questo tipo sono facil¬ 
mente espandibili, in quanto possono essere completati 
da dispositivi opzionali che ne ampliano le potenzialità. 
Si noti pure che esiste un altro standard molto famoso, 
evoluzione di questo, chiamato degli IBM AT compatibili. 
In questo caso avremo un processore più potente, mag¬ 
giore capacità di memoria RAM e permanante (1200K su 
dischetto): chiaramente un AT compatibile è molto più co¬ 
stoso di un XT compatibile (almeno il doppio). Va comun¬ 
que ricordato anche in questo caso che lo standard non 
riguarda i dispositivi accessori come le stampanti, i plot- 
ter, i monitor. 
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INTRODUZIONE AL SISTEMA 

►►► MS-DOS 


Se non conosciamo il personal computer più venduto sap¬ 
piamo però quale sia il programma più diffuso: si chiama 
MS-DOS della MICROSOFT, e costituisce il sistema ope¬ 
rativo dei personal IBM compatibili. Che cos’è un sistema 
operativo? È il programma più importante di qualsiasi 
computer (tutti ne hanno uno), quello senza il quale il si¬ 
stema non può funzionare. Questa serie di articoli sarà 
dedicata proprio aM’MSDOS, che assai meglio del BASIC 
rappresenta oggi il vero esperanto dei computer, cioè la 
loro lingua universale. 



Il sistema operativo permette di usare la macchina senza 
dover imparare il suo linguaggio reale, che è basato sul 
sistema binario. Il sistema operativo dal punto di vista 
dell’utente è un traduttore, cioè un programma che tra¬ 
sforma i comandi che è in grado di capire in azioni del 
computer. Facciamo subito un esempio. Acceso il compu¬ 
ter, ed inserito il disco contenente il sistema MS-DOS (di 
solito viene fornito insieme con la confezione), su video 
vengono dapprima fornite una serie di informazioni (che 
analizzeremo approfonditamente un'altra volta), viene 
chiesto di inserire la data e l’ora attuali dopodiché final¬ 
mente compare sulla sinistra dello schermo il simbolo 
A> 

con a fianco un carattere lampeggiante. Quest’ultimo si 
chiama cursore e rappresenta il punto in cui compariran¬ 
no su video i caratteri corrispondenti ai tasti che battia¬ 
mo; invece il simbolo A> si chiama prompt del sistema, e 
rappresenta il fatto che il computer è pronto a rispondere 
ai nostri comandi. 

Proviamo a darne uno. Scriviamo dopo il prompt, lettera 
per lettera, quanto segue: 

A> dir 

Sritte le tre lettere, si batta il tasto marcato con la parola 
<RETURN>, che si trova sulla destra della tastiera. Si ot¬ 
tiene il directory del disco A, ovvero l’elenco del contenu¬ 
to del dischetto inserito nel computer, che nel caso del di¬ 
sco contenente MS-DOS è il seguente (alcune versioni 


possono diferire leggermente nel fatto che alcuni elemen 
ti non sono presenti): 


A> dir 


Volume in drive A is SYSTEM INT 
Directory of A:<? 


COMMAND 

COM 

18016 

6-06-85 

12:00p 

ANSI 

SYS 

1850 

6-06-85 

12:00p 

ASSIGN 

COM 

880 

6-06-85 

12:00p 

AUTOEXEC 

BAT 

18 

6-06-85 

12:00p 

BACKUP 

COM 

21680 

6-06-85 

12:00p 

CHKDSK 

COM 

6510 

6-06-85 

12:00p 

CHMOD 

COM 

6528 

6-06-85 

12:00p 

COMP 

COM 

2719 

6-06-85 

12:00p 

CONFIG 

SYS 

20 

6-06-85 

12:00p 

DEBUG 

COM 

12242 

6-06-85 

12:00p 

DISKCOMP 

COM 

2953 

6-06-85 

12:00p 

DISKCOPY 

COM 

3518 

6-06-85 

12:00p 

EDLIN 

COM 

8114 

6-06-85 

12:00p 

EXE2BIN 

EXE 

1649 

6-06-85 

12:00p 

FDISK 

COM 

5015 

9-26-85 

11:21 a 

FIND 

EXE 

6331 

6-06-85 

12:00p 

FORMAT 

COM 

7130 

9-26-85 

11:47a 

GRAFTABL 

COM 

1244 

6-06-85 

12:00p 

GRAPHICS 

COM 

678 

6-06-85 

12:00p 

KEYBDA 

COM 

1021 

6-06-85 

12:00p 

KEIBFR 

COM 

1207 

6-06-85 

12:00p 

KEYBGR 

COM 

1006 

6-06-85 

12:00p 

KEYBIC 

COM 

828 

6-06-85 

12:00p 

KEYBIT 

COM 

552 

6-06-85 

12:00p 

KEYBNO 

COM 

1021 

6-06-85 

12:00p 

KEYBSF 

COM 

974 

6-06-85 

12:00p 

KEYBSG 

COM 

1007 

6-06-85 

12:00p 

KEYBSP 

COM 

902 

6-06-85 

12:00p 

KEYBSU 

COM 

1021 

6-06-85 

12:00p 

KEYBSV 

COM 

1021 

6-06-85 

12:00p 

KEYBUK 

COM 

336 

6-06-85 

12:00p 

LINK 

EXE 

42330 

10-19-83 

7:51 p 

MODE 

COM 

5431 

6-06-85 

12:00p 

MORE 

COM 

4380 

6-06-85 

12:00p 

PRINT 

COM 

3827 

6-06-85 

12:00p 

RAMDISK 

SYS 

768 

6-06-85 

12:00p 

RECOVER 

COM 

2322 

6-06-85 

12:00p 

RESTORE 

COM 

20928 

6-06-85 

12:00p 

SIZE 

COM 

4576 

6-06-85 

12:00p 

SORT 

EXE 

1632 

6-06-85 

12:00p 

SYS 

COM 

2817 

6-06-85 

1:00p 

TREE 

COM 

6672 

6-06-85 

12:00p 

XTREE 

COM 

7104 

6-06-85 

12:00p 

GWBASIC 

EXE 

66816 

4-02-85 

1:41 p 


44 Filefs) 


31744 bytes free 


Il disco contiene una serie di elementi che rappresentano 
insiemi di informazioni. Dando il comando dir noi ottenia¬ 
mo l’elenco completo di questi insiemi, che gli informatici 
chiamano archivi (o, più comunemente, col termine ingle¬ 
se di file - pronuncia fàil). In questo elenco, chiamato di¬ 
rectory, la prima colonna rappresenta il nome dell’archi¬ 
vio; la seconda, chiamata estensione, rappresenta il tipo; 
la terza la lunghezza in caratteri del contenuto; la quarta 
e la quinta rispettivamente la data e l’ora di creazione 
dell’archivio. 

Vedremo nel prossimo numero — uno per uno — il signi¬ 
ficato di tutti questi elementi. 
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MISSIONE 
IMPOSSIBILE 


Dedichiamo tutta la puntata di questo mese ad uno dei 
giochi più belli mai implementati su home computer: 
MISSIONE IMPOSSIBILE. 

Siamo entrati in possesso di un dossier segreto contenente 
le istruzioni operative del gioco. Buona fortuna! 


ISTRUZIONI OPERATIVE - 
TOP-SECRET 

SOGGETTO: missione di vitale im¬ 
portanza per la sicurezza nazionale e 
globale. Operazione da iniziare imme¬ 
diatamente. 

SITUAZIONE: durante i giorni scor¬ 
si le installazioni di computer militari 
hanno mostrato una falla nella sicu¬ 
rezza. Qualcuno aveva avuto accesso 
al computer programmato per un at¬ 
tacco missilistico. Solo una persona 
al mondo è attualmente capace di far 
questo «ELVIN». 

Noi crediamo che Elvin stia lavoran¬ 
do per decifrare i codici dei compu¬ 
ter. Quando riuscirà nel suo intento, 
conta di lanciare un attacco di missili 
che distruggerà il mondo. 

MISSIONE: penetrare nel rifugio sot¬ 
terraneo di Elvin e fermarlo. Per ave¬ 
re successo: evitare le guardie ed i ro¬ 
bot dello scienziato, decifrare il suo 
codice di sicurezza e trovare il suo 
centro di controllo. I tuoi predecesso¬ 
ri, gli agenti 4116 e 4124 (possano ri¬ 
posare in pace) sono riusciti a man¬ 
dare alcune informazioni riguardo 
l’installazione di Elvin. È tutto detta¬ 
gliato nelle prossime pagine. Le sole 
armi a disposizione sono il tuo cervel¬ 
lo analitico ed il tuo computer tasca¬ 
bile MIA9366B. Sii forte. Il mondo 
dipende da te. 


ELVIN - Dati personali 

Sesso: maschile • Età 62 anni 
Razza: caucasica 
Altezza: 1,70 
Peso: 60 kg. 

Capelli: non ne ha 
Curiosità: evita la gente, odia 
gli animali. 


ELVIN - Dati Biografici 

Ha ammassato una notevole fortuna 

accedendo ai sistemi computer di va¬ 
rie istituzioni finanziarie, e con que¬ 
sto denaro ha costruito un vasto rifu¬ 
gio sotterraneo difeso da svariati si¬ 
stemi di computer. Elvin ha speso 4 
anni per scassinare la sicurezza dei 
sistemi informatici intorno al mondo. 
Ha avuto successo. Il nostro compu¬ 
ter ha stimato che decifrerà i codici 
di accesso e lancerà l’attacco dei 
missili tra 6 ore. Questo è il tempo a 
disposizione per completare la mis¬ 
sione. 


La fortezza di Elvin ha 32 stanze. 

Alcune sono normali, altre contengo¬ 
no i computer. I nostri servizi segreti 
indicano che ogni stanza ha una se¬ 
rie di piani e passaggi che sono uniti 
da scale. L’ultimo agente che ha pro¬ 
vato a far cadere la fortezza di Elvin 
ha mandato il seguente rapporto: 


J 


«Sono appena entrato in ciò che sem ¬ 

bra un salotto. Strano. Tutti i mobil i 
sembrano essere su sopraelevate . 

Non so se andare su. Posso vedere 

un camino ed un divano proprio sopra 

la mia testa. Come si fa a vivere in 

questo modo? Un momento! Penso 

che un robot mi abbia visto ». _ 

Chiaramente Elvin ha costruito le 
stanze 

della sua fortezza in modo tale che 
solo lui possa gestirle. I piani e le so¬ 
praelevate spesso finiscono con un 
terribile salto nel vuoto e chiaramen¬ 
te sono difese dai robot di Elvin. Dia¬ 
bolicamente intelligente quell’Elvin. 


Sistema di sicurezza di ELVIN 


Il nostro servizio segreto 

indica che Elvin usa tre tipi di codici 
(o parole d’ordine) nel suo servizio di 
sicurezza. Un codice disattiva i robot; 
un altro effettua i sollevamenti degli 
ascensori, ed il terzo codice (una pa¬ 
rola d’ordine) sblocca la stanza di 
controllo. Ora viene la parte compli¬ 
cata. Noi crediamo che Elvin nascon¬ 
da le parole d’ordine nella mobilia. El¬ 
vin, che è assai distratto, dimentica 
spesso le parole d’ordine per il suo 
sistema di sicurezza computerizzato. 
La sua soluzione è di spargerle in tut¬ 
ta la casa. Bisognerà cercarle nel di¬ 
vano. nello stereo, nella macchina 
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delle caramelle, ma bisogna trovarle 
perché senza le parole d’ordine farai 
la fine dell'agente 4124. 

Una volta che avrai trovato i codici, 

basterà attivare il terminale di sicu¬ 
rezza disattivare temporaneamente i 
robot o mettere in funzione gli ascen¬ 
sori (riportandoli in posizione di par¬ 
tenza). Questo non dovrebbe rappre¬ 
sentare alcun problema. 

Invece la parola d’ordine per la stan¬ 
za di controllo rappresenta un proble¬ 
ma ben maggiore. Realizzando la 
grande importanza di questo codice, 
Elvin lo ha rotto in dozzine di pezzi, 
spargendoli in tutto il complesso. Tu 
dovrai trovarli e rimettere insieme tut¬ 
ti i pezzi, facendo in modo che com¬ 
bacino, come in un puzzle. Con la pa¬ 
rola d’ordine completata si può avere 
accesso alla stanza di controllo, dove 
Elvin sta preparando il lancio dei mis¬ 
sili. Dovrai fermarlo, altrimenti il mon¬ 
do sarà completamente distrutto. 


Obiettivo 

Per avere successo 
nella MISSIONE IMPOSSIBILE occor¬ 
re penetrare nelle stanze e nei tunnel 
dei sottopassaggi di Elvin, evitando i 
robot che difendono la casa e ricom¬ 
binando le parole d’ordine segrete. 
Una volta che avremo ricombinato 
tutti i puzzle potremo accedere nella 
stanza di controllo di Elvin e mettere 
fine ai suoi piani. I punti si ottengono 
trovando i pezzi del puzzle e metten¬ 
doli insieme, riuscendo ad entrare 
nella stanza di controllo di Elvin pri¬ 
ma che il tempo scada. 

Possiamo raggiungere un punteggio 
superiore 

completando la parola d’ordine e riu¬ 
scendo a raggiungere la stanza di 
controllo in minor tempo. Ma ogni 
volta che giocheremo le stanze ed i 
robot saranno messe in modo diver¬ 
so, ed il gioco sarà differente. 



MISSIONE 


Inizio del GIOCO 

A II 1 inizio del gioco 

Elvin ci darà il benvenuto nei suoi 
sotterranei; questo lo fa come favore 
per pemettere di regolare il volume: è 
l’ultima e unica gentilezza che Elvin 
dimostrerà. Si comincia a giocare con 
l’agente nell’ascensore. 


Svolgimento del 

Man mano che esploriamo la fortezza 

di Elvin, il computer mostrerà una 
mappa delle stanze e dei tunnel già 
visitati. 

In ogni stanza bisogna effettuare una 
ricerca. Cercare in ogni oggetto ed in 
ogni pezzo di mobilio presente nelle 
stanze, allo scopo di trovare i codici 
e le parole chiave. Puoi farlo metten¬ 
doti di fronte ad ogni oggetto e spin¬ 
gendo il joystick in avanti. La parola 
«SEARCHING» apparirà di fianco alla 
spalla dell’agente. Vedrai anche una 
barra orizzontale indicante il tempo 
che necessita per la ricerca dell’og¬ 
getto, devi continuare a trattenere il 
joystick in avanti finché la barra spa¬ 
risce. Se la ricerca è interrotta per 
qualche ragione, si può tornare indie¬ 
tro e riprendere la ricerca da dove è 
stata interrotta. Ma se si lascia la 
stanza bisognerà reiniziare la ricerca. 
Finito di controllare l’oggetto, una 
delle quattro seguenti scritte apparirà 
sopra la spalla dell’agente: 





• La frase ««NOTHING HERE» (non vi è 
nulla). 

• Una foto di un robot che dorme. (Que¬ 
sto rappresenta una parola d’ordine 
SNOOZE che ti permette temporaneamen¬ 
te di disattivare i robot di una qualsiasi 
stanza). 

• Una figura di una piattaforma con una 
freccia sopra. (Questo rappresenta una 
parola d'ordine che ti permetterà di rimet¬ 
tere tutte le piattaforme ed ascensori di 
una qualsiasi stanza nella posizione origi¬ 
nale). 

• Un pezzo di puzzle. (Questa è molto 
preziosa, perché rappresenta una parte 
della parola d’ordine finale che permette¬ 
rà di entrare nella stanza di controllo. Ver¬ 
rà automaticamente immagazzinata nella 
memoria del tuo computer tascabile). 


Si possono usare gli SNOOZE ed i 
LIFT INITS su ogni terminale di sicu¬ 
rezza. Questi terminali sono solida¬ 
mente posti vicino all’entrata di ogni 
stanza. Sembrano televisori con gli 
schermi neri e sono rivolti verso di te. 
Per usare un terminale di sicurezza, 
spostarsi direttamente di fronte e 
spingere lo stick in avanti. Lo scher¬ 
mo del terminale si illuminerà, e sce¬ 
glieremo una di queste tre funzioni: 


• RIPOSIZIONARE LE PIATTAFORME. 
Per usare questa soluzione bisogna pos¬ 
sedere una parola chiave LIFT INITS (Il 
computer tascabile mostra il numero di 
parole possedute). 

• DISATTIVARE TEMPORANEAMENTE I 
ROBOTS. Per usare questa soluzione bi¬ 
sogna possedere una parola chiave 
SNOOZE. (Il computer tascabile ti mostra 
quante ne abbiamo). 

• UN PEZZO DI PUZZLE 


Le stanze musicali 



La fortezza di Elvin contiene stanze 
musicali 

ove si possono ottenere parole d’ordi¬ 
ne in più. Queste stanze sono ricono¬ 
scibili dalla grande scacchiera che 
contengono. Andare verso la scac- 
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IMPOSSIBILE 


cmera e spingere il joystick in avanti 
come se stessi frugandola. Una se¬ 
quenza di quadrati brillerà sulla pare¬ 
te, ciascuno associato ad una nota 
musicale. Alia fine apparirà un guan¬ 
to bianco. Usarlo per toccare i qua¬ 
drati attivati precedentemente in una 
sequenza tale da far si che le note 
abbiano un ordine ascendente, cioè 
dalla nota più bassa alla nota più al¬ 
ta. Se riusciamo a riconoscere la se¬ 
quenza esatta di note, la scacchiera 
si illuminerà e otterremo (a caso) una 
parola chiave SNOOZE o LIFT INITS. 
Questo gioco si può ripetere più vol¬ 
te, ma la sequenza diventa ogni volta 
più lunga. Per uscire dalla stanza toc¬ 
care la barra viola. 



Il Computer tascabile 


Il computer tascabile è un aiutante 
incredibile. 

Permette di giocare con i pezzi del 
puzzle direttamente sullo schermo gi¬ 
randoli e mettendoli nel modo giusto 
per vedere come si ricombinano. 

Per attivare il computer tascabile bi¬ 
sogna trovarsi in uno degli ascensori 
dei corridoi. Pigiare il bottone FIRE 
del joystick per metterlo in funzione. 


IMPORTANTE: non puoi usare il computer 
in nessuna delle stanze. Pigiando il botto¬ 
ne FIRE in una stanza, l’agente farà un 
salto mortale (serve per superare i 
baratri). 



Quando il computer è attivato, la 
mappa della fortezza di Elvin sparirà 
ed apparirà un guanto bianco. Usare 
il guanto bianco per mettere i pezzi 
del puzzle insieme, formando la paro¬ 
la chiave che permetterà di entrare 
nella stanza di controllo di Elvin. 


Come si usa il guanto 

• Per nuovere il guanto muovi lo 
stick nella direzione desiderata. 

Per attivare la funzione chiave punta¬ 
re ad essa con il guanto a spingere il 
bottone FIRE dello stick. 

• Per prendere un pezzo del puzzle 
nella finestra memoria, puntare ad 
esso con il guanto e pigiare il botto¬ 
ne FIRE. Poi puoi muoverlo muoven¬ 
do lo stick. 

• Per lasciare un pezzo del puzzle 
pigiare il bottone FIRE. 

• Per fare una copia del pezzo del 
puzzle scelto, puntare ad esso con il 
guanto e pigiare il bottone. 

• Per mettere via una copia di un 
pezzo scelto posizionare direttamente 
la copia sul pezzo prescelto e pigiare 
il bottone. 

• Per scegliere un pezzo del puzzle 
che non è stato selezionato, puntare 
ad esso con il guanto e pigiare il bot¬ 
tone. 

• Per vedere se due pezzi combacia¬ 
no posizionare un pezzo direttamente 
sopra l’altro e pigiare il bottone dello 
stick. 

Risolvere il PUZZLE 

Alcuni pezzi inizialmente sono messi 
sottosopra 

e non sembrano combaciare con nul¬ 
la. Provare a rigirarli usando la fun¬ 
zione chiave di destra. I pezzi devono 
essere dello stesso colore, altrimenti 
non combacieranno. Se due pezzi con 
differenti colori sembrano combacia¬ 
re, allora usare i tasti colorati per 
cambiarne il colore. 

Un puzzle completato appare come 
una scheda perforata, cioè un rettan¬ 
golo solido con molti piccoli buchi. 
Un puzzle completato potrebbe esse¬ 
re orientato dalla parte girata. 

Ci sono quattro pezzi in ogni puzzle 
completato e nove puzzle nel gioco. 
Ogni volta che completiamo un puz¬ 
zle una lettera della parola chiave di 
Elvin apparirà sul fondo dello scher¬ 
mo del computer tascabile. Quando 
avremo tutte le 9 lettere della parola 
chiave, allora potremo aprire la porta 
della stanza di controllo di Elvin, che 
è una delle stanze blu. 

Completata la parola d’ordine, posi¬ 
zionare l’agente direttamente di fron¬ 
te alla porta e spingere il joystick in 
avanti. La porta si aprirà e finalmente 
avremo la possibilità di salvare il 
mondo. 



Quando tocchiamo il tasto telefono 

sul computer tascabile, ci mettiamo 
in contatto con il computer centrale 
dell’agenzia che ci darà qualche aiuto 
riguardo il puzzle. Purtroppo bisogne¬ 
rà pagare per usarlo. Ogni volta che 
usiamo il telefono ci costerà due mi¬ 
nuti sull’orologio. Il computer 
dell’agenzia ci darà tre opzioni: sce¬ 
gliere quella voluta usando il guanto, 
e premere il bottone fuoco. Le tre op¬ 
zioni sono 


Orientamento corretto dei 
PEZZI DI SINISTRA 

Il computer girerà i due pezzi del 
puzzle nella finestra della memoria 
per orientarli correttamente. Un se¬ 
gno rosso apparirà alla sinistra di 
ogni pezzo che è stato girato. 


Abbiamo abbastanza pezzi per 
risolvere il puzzle del riquadro 
in alto a sinistra? 

Il computer controllerà i pezzi del 
puzzle in alto nella finestra della me¬ 
moria e dirà se sono stati già trovati i 
tre pezzi che vanno con quel puzzle. 
Per continuare a giocare premere RE- 
STORE. 


PUNTEGGIO 

Il gioco si svolge in tempo reale inizia 
con l’orologio sulle 12 e termine 
quando saranno le 6. Abbiamo dun¬ 
que sei ore reali per sconfiggere El¬ 
vin. ATTENZIONE! 

• ogni volta che si muore, cadendo 
sul fondo dello schermo o colpito da 
un robot, siamo penalizzati di 10 mi¬ 
nuti. 

• ogni volta che usiamo il telefono 
siamo penalizzati di 2 minuti. 

• quando il gioco finisce verranno 
riconosciuti i seguenti punteggi: 

1 punto per ogni secondo rimasto 
sull’orologio; 

100 punti per ogni pezzo di puzzle ri¬ 
trovato; 

100 punti per ogni SNOOZE O LIFT 
INIT trovati; 

500 punti per ogni puzzle risolto; 
1000 punti per aver completato la 
missione. 
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A partire da questo numero, diamo il via ad una 
nuova rubrica che ha per argomento LA 
TELEMATICA. In particolare tratteremo la 
trasmissione dati riferendoci agli home e personal 
computers. 

Sarà gradito, come sempre, Vintervento di quei 
lettori che volessero maggiori delucidazioni o 
integrare le informazioni date con loro esperienze 
personali. 

In questa puntata vedremo com’è nata e quali 
sono stati gli sviluppi della trasmissione dati, 
Riprenderemo ampiamente l’argomento nelle 
prossime puntate, parlando ancora delle reti di 
calcolatori. 



on il trascorrere degli anni, gli elaboratori sono 
diventati sempre più piccoli, potenti ed economici, 
riuscendo a raggiungere potenze di elaborazione 
che, fino a pochi anni fa, erano appannaggio di grossi si¬ 
stemi che occupavano intere stanze e richiedevano speciali 
ambienti isolati. Questi sistemi erano complessi e abbiso¬ 
gnavano di personale esperto per il loro funzionamento. 
Negli anni ’50 si lavorava in «batch», ovvero le applica¬ 
zioni degli utenti venivano consegnate agli operatori che le 
traducevano in schede perforate, dopodiché, una dopo 
l’altra venivano inserite nell’elaboratore a formare un «in¬ 
put job stream» (una sequenza di lavori) il quale le elabo¬ 
rava sequenzialmente per fornire i risultati. 

Era escluso ogni contatto tra elaboratore ed utente. 

Negli anni ’60, con l’avvento delParchitettura 370 e 
dell’ambiente di programmazione VM da parte dell’ISM, 
più utenti erano in grado di lavorare contemporaneamente 
e in modo interattivo con l’elaboratore centrale. Ciò gra¬ 
zie al «timesharing». Con questa modalità operativa, ispi¬ 
rata alla filosofia «meglio poco ma tutti insieme, che tan¬ 
to ma uno alla volta», e grazie ad una sofisticata gestione 
dei processi in atto, ogni utente potè lavorare col proprio 
terminale come se fosse l’unico ad utilizzare l’elaboratore 
e difficilmente si accorse che la velocità con cui risponde¬ 
va alle sue richieste non era quella massima, bensì propor¬ 
zionale al numero di utenti che in quel momento utilizza¬ 
vano anch’essi lo stesso elaboratore. Infatti l’host riparti¬ 
va il tempo di elaborazione a disposizione tra tutti gli 
utenti, concedendone una frazione a ciascuno sequenzial¬ 
mente. È chiaro che essendo velocissimo, quasi mai ci si 
accorgeva di ciò. 
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NE DATI 


di Fabio Scafati 


In questo modo nacquero i primi terminali non intelligenti 
collegati a bassa velocità con l’host (ovvero l’elaboratore 
principale). 

Questi grossi elaboratori tuttavia dovevano essere conti¬ 
nuamente potenziati, il numero dei terminali cresceva a 
dismisura e ben presto si raggiunsero i limiti fisici dei si¬ 
stemi, che oltretutto non erano sufficientemente flessibili 
alle nuove esigenze degli utenti. 

Agli inizi degli anni ’70 furono creati dei calcolatori più 
piccoli (chiamati appunto «minicomputers») e flessibili 
che permisero, attraverso una sofisticata ingegnerizzazione 
del software, la condivisione di risorse e periferiche tra 
più utenti La Digital fece, e fa tuttora, la parte del leone 
con la linea Pop-11 e Vax. 

A questo punto si fece presente l’esigenza di far comuni¬ 
care tra loro, e velocemente, questi minielaboratori. Sor¬ 
sero le prime LAN, Locai Area Netwcrh (Reti locali) che 
permettono lo scambio veloce di informazioni in modo ef¬ 
ficiente ed economico. La rete Ethernet, della Digital 
Equipmenf, spiana la strada al nuovo corso tecnologico. 
Con una modica spesa è possibile aggiungere terminali di 
lavoro (detti «nodi della rete»), ampliando c decentrando 
la potenza di elaborazione, che ormai supera quella dei 
grossi sistemi. 

Il problema è ora incentrato sugli standard di rete. 

1977, la commissione ISO crea una sottocommissione de¬ 
nominata OSI che stabilisce, in armonia (o quasi!) con le 
case costruttrici, quali sono gli standard da raggiungere. 
Sino ad ora però abbiamo parlato di reti «locali», ovvero 
di reti la cui architettura ed utilizzo siano limitate allo 
spazio di un ufficio. Nasce ora l’esigenza di connettere tra 
loro ad esempio, più sedi «geograficamente distribuite», 
di una stessa società. Prende forma il concetto, appunto, 
di rete «geograficamente distribuita» cioè di una rete i cui 
nodi siano altre reti oppure singoli utenti. Ogni nodo è 
connesso agli altri tramite collegamenti remoti su linee de¬ 
dicate, a commutazione di circuito o a commutazione di 
pacchetto (queste sono le modalità di trasmissione oggi 
utilizzate). 

Ma questi collegamenti, a livello fisico, come vengono at¬ 
tuati? 

È semplice: tramite modem. 

Con tale apparecchiatura è infatti possibile far colloquiare 
due calcolatori distanti tra loro migliaia di chilometri, ed 
è quindi per questa ragione che solo negli ultimi anni ab¬ 
biamo assistito ad un veloce sviluppo della tecnologia per 
la costruzione di modem sempre più sofisticati: prima 
dell’avvento delle reti non c’era bisogno di tutte queste 
diavolerie! 


Bulletin 

Board 

Service 


Servizio 

Bollettino 

Telematico 



un freddo pomeriggio di gennaio, 
stranamente non piovoso. Un grigiore 
londinese avvolgeva la città. 

Avevo faticosamente messo da parte, per mesi e 
mesi, i soldi necessari all’acquisto deM’infernale 
«aggeggio»; dando il tormento a tutti quelli cui 
potevo darlo, affinché contribuissero alla spesa 
d’acquisto con un tangibile «obolo»(!). 

Chiaramente tutti avevano la loro da dire, chi si 
opponeva, chi dubitava della sua utilità e tante 
altre stupidaggini! 

«Avete presente ‘Wargames’?» — rispondevo — 
«Beh; ho intenzione di emulare il protagonista!». 
Ridevano, capite ragazzi? Ridevano... tapini! 
Scusate lo sfogo! Riprendiamo l’argomento. 

Dicevo, era un pomeriggio di gennaio, freddo (l’ho 
già detto, mi pare!?). Il posto non era molto 
lontano, però avevo seri dubbi sull’affidabilità 
dell’«aggeggio». D’accordo, mi ero informato 
presso amici hackers... però il dubbio rimaneva. 
D’altra parte era il miglior prezzo sulla piazza, 
quindi c’era poco da fare i difficili! 

Primo intoppo: il «tizio» che vendeva gli «aggeggi» 
non disponeva di un negozio come i commercianti 
«normali», ma da buon «trafficone», si era piazzato 
in un appartamento (probabilmente la sua 
abitazione, per risparmiare!). Codesta «tana» era 
una delle tante (a me sembrarono migliaia!) 
situate in un gigantesco stabile. Trascorsero venti 
minuti per trovare il suo nome sul citofono!! 
Fortunatamente c’era l’ascensore, 43 piani 
sarebbero stati un pò troppi da fare a piedi! 
Secondo intoppo: fila pazzesca di clienti. Gente 
molto strana, per lo più giovanissimi occhialuti 
con le dita frenetiche e qualche chilo di troppo, 
intenti a smanettare sulle poche macchine messe 
a disposizione per ingannare l’attesa. Nella stanza 
erano stipati decine di contenitori pieni zeppi di 
floppy e microfloppy disk. Per non parlare dei 
manuali: occupavano due librerie alte fino al 
soffitto! 

Indubbiamente il nostro «amico» era uno dei tanti 
famosi «pirati del software», ricercati dalle 
software house di tutto il mondo. 

Rapida stima: circa 20 individui, quindi grossi 
incassi, anzi, favolosi ma... non divaghiamo 
torniamo a noi. 

Finalmente, dopo un’attesa esasperante, giunge il 
mio turno: brevi frasi smozzicate in computerese: 
«quanti baud?», «chiamata automatica!», «RS. 
232?», «standard di Bell e CCITT?». In pochi 
istanti ero già in strada con la «preda» in una 
busta di plastica, eccitato e ansioso di arrivare a 
casa per provarlo. Vi domanderete: ma di cosa sta 
parlando questo? Di un modem. 

Il «tizio» mi aveva anche fornito i cavi per il 
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collegamento alla linea telefonica e al calcolatore, 
generalmente forniti a parte con ulteriore spesa, 
oppure autocostruibili. Visto poi la mia 
inesperienza, mi scrisse su un pezzetto di carta 
delle password per accedere (illegalmente, è 
chiaro!) ad alcune banche dati. 

Appena giunsi a casa la prima tappa fu il 
frigorifero e la dispensa: ricerca frenetica di coca 
cola, patatine e quant’altro potessi afferrare. Poi 
la connessione, facile, di tutti i cavi e cavetti. 
Accensione del calcolatore. Lancio del programma 
di comunicazione (fornitomi da una «talpa» che 
gestisce un megagalattico centro di calcolo IBM 
4381), potentissimo. 

Il campo di battaglia era pronto e il primo 
collegamento della mia vita stava per partire. 

Vi chiederete: «ma a questo qui nesuno lo 
controlla? Può telefonare a chi vuole senza «veti» 
di padri, madri e sorelle?». 

Vi confesso che anche per me è così, però 
collegarsi con un modem non dà nell’occhio come 
una telefonata. Infatti essendo tali «gingilli» 
praticamente sconosciuti al grande pubblico, è 
facile contrabbandarli per giocattolini inutili, come 

infatti tutti li considerano. Però.quando arriva 

la bolletta!! Quindi un consiglio: collegatevi nelle 
ore serali e con parsimonia; un aumento della 
bolletta telefonica di un 15-20% passerà 
inosservato, o quasi, mentre un aumento del 
100% scatenerà l’ira dei padri e svelerà il reale 
costo del «giocattolino!» 

Bene, torniamo (ancora una volta) a noi. 

Su consiglio di un amico esperto, il primo 
collegamento fu dedicato all’esplorazione di alcuni 
BBS locali (è l’acronimo di Boullettin Board 
Service, ovvero Servizio di Bollettino Telematico, 
però e meglio non tradurlo e imparare i termini 
inglesi: un vero hacker conosce bene l’inglese!) 
Dovete sapere che i BBS sono una vera miniera di 
informazioni utili per tutti: dall’esperto al novizio. 
Inoltre è molto facile fare amicizie, (e pensare che 
c’è chi dice che l’informatica non favorisce i 
rapporti sociali!) un po meno facile è lo scambio 
di informazioni come dire...ehm, riservate. 
Comunque, tutto dipende dalla vostra abilità e 
furbizia: c’è chi dopo due giorni è già al corrente 
di tutto, e chi invece dopo sei mesi è al punto di 
partenza! 

Di fondamentale importanza è il codice di 
comportamento da osservare: mancando il 
controllo fisico, l’unico parametro valido per 
giudicare l’onestà dello smanettone da parte del 
gestore del BBS, sono le azioni intraprese 
all’interno del BBS stesso. 

Se chi si collega è scortese (es. non lascia mai 


messaggi di saluto al sistemista e agli utenti, 
preleva programmi a man bassa senza 
preoccuparsi di inviarne di nuovi, non partecipa 
alla vita del BBS sarà in breve tempo individuato 
ed estromesso dal BBS. 

Al contrario, una politica attiva porta ben presto 
ad essere conosciuti e stimati da tutti. 

Nel frattempo la tastiera era divenuta 
incandescente e le lattine di coca cola si 
accumulavano. Era quasi notte fonda ma ancora 
non davo cenni di stanchezza (la coca cola 
contiene caffeina, quindi potevo andare avanti 
chissà per quanto ancora). 

Termini fino ad allora sconosciuti si affollavano 
nella mente: protocollo, rete, modem, Hayes, 

Mark III, Peis, Itapac... 

Per cercare di capire qualcosa lanciavo richieste 
d’aiuto ovunque, con l’intenzione di leggere 
l’eventuale risposta qualche giorno più tardi, come 
infatti accadde. 

In ogni BBS esistono delle aree di interesse cui 
ogni utente, tranne casi rari, può accedere. Ad 
esempio esistono le aree «programmi» dalle quali 
si possono prelevare i programmi per ogni 
specifico calcolatore, semplicemente digitando 
alcuni comandi. Si, avete capito bene, basta 
qualche istruzione digitata sulla tastiera e... voilà, 
il programma che vi interessa sarà sul vostro 
disco o memoria che sia. Incredibile no?? 

Altre aree di interesse riguardano dei calcolatori 
in particolare: ad esempio esiste l’area di 
interesse per i pc Ibm e compatibili, quella per il 
Commodore 64, l’Amiga, per l’Atari, per l’Apple e 
tanti altri. Chiunque può accedervi e smanettare. 
Un’ultima cosa. 

Vi sarete chiesti chi sono gli «hackers». 

Questi «tizi», sempre giovanissimi, sono degli 
appassionati di calcolatori cui piace «scassinare» 
qualunque cosa gli capiti per le mani. Però tale 
pratica non ha secondi fini, ed è per puro 
divertimento che viene praticata. L’obiettivo finale 
è quello di far vedere che si è i più furbi e che se 
si volesse... 

Ad esempio, il protagonista di «Wargames» è un 
hacker. 

Chiaramente nel film viene lasciato ampio spazio 
alla fantasia. È fisicamente impossibile che 
qualcuno riesca a «scassinare» il Nor ad (cuore 
del sistema difensivo degli Stati Uniti), anche se è 
facile collegarsi (il sottoscritto lo ha fatto!). 

In ogni caso, buona fortuna e buon divertimento. 
Mi raccomando, smanettate, smanettate, 
smanettate. 

Qui è LIST! Qualcosa di grosso bolle in pentola. 
Forse un BBS?? Indagate, indagate! 
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In questo articolo, dedicato a chi desidera 
apprenderne le prime basilari informazioni, 
esploreremo le caratteristiche principali dei 
programmi per la telecomunicazione. 


di Fabrizio Nicolai 


Una panoramica generale sulle princi¬ 
pali caratteristiche dei programmi ter¬ 
minali, sarà molto utile per il neo 
utente, essenzialmente per indirizzar¬ 
lo verso un acquisto oculato e coe¬ 
rente con le proprie necessità opera¬ 
tive. 

Le caratteristiche che esamineremo, 
sono generalmente disponibili in qua¬ 
si tutti i programmi per telecomunica¬ 
zione, tenendo presente che l’ordine 
di trattazione di dette caratteristiche 
non è relativo alla loro importanza. 

Le prime due sono la velocità di tra¬ 
smissione variabile in Baud e i para¬ 
metri definibili dall’utente. 

La velocità di trasmissione variabile è 
importante se il modem che usate, è 
in grado di lavorare a più velocità, per 
esempio 300 o 1200 Baud. I parametri 
definibili dall’utente permettono di 
settare la parità, i bits di stop, il du¬ 
plex, ecc. ecc. 

L’auto-dial è indubbiamente una nota 
di qualità per un programma di tele¬ 
comunicazioni, ma è importante ac¬ 
certarsi che il modem sia predisposto 
per un tale utilizzo. Mediante l’auto- 
dial è possibile selezionare il numero 
da chiamare tramite la tastiera del 
calcolatore e il software provvederà a 
chiamare automaticamente il numero 
telefonico desiderato; tipi di software 
più avanzati permettono anche il re- 
dial, ossia la chiamata automatica 
continua del numero trovato occupa¬ 
to con segnalazione acustica di «tro¬ 
vato libero». Esiste anche una direc¬ 
tory telefonica ove è possibile archi¬ 
viare i numeri telefonici più utilizzati, 
selezionabili da un carattere identifi¬ 
catore del tipo: 

A) FIDO TORINO 

B) BBS 2000 

C) ITAPAC 


I 


I 


Selezionando ad esempio la A, il pro¬ 
gramma eseguirà il diai (eventual¬ 
mente il re-dial) del numero telefonico 
corrispondente. Alcuni programmi, vi 
permettono di definire e programmare 
i tasti funzione per memorizzarvi nu¬ 
meri, informazioni o qualsiasi altra 
cosa desideriate. Questa opzione 
consente di memorizzare password 
e/o identificatori particolari, spesso 
richiesti per avere accesso nelle bul¬ 
letta boards. 

È quasi sempre disponibile un text 
buffer dove potete salvare parte delle 
informazioni visualizzate sullo scher¬ 
mo durante il collegamento, per 
esempio su disco sotto forma di file 
sequenziali, oppure stamparle, sem¬ 
pre che sia presente una opzione per 
deviare il buffer sulla stampante. 
Facciamo una piccola parentesi: 
quando si ha a che fare con la termi¬ 
nologia informatica in generale o te¬ 
lematica in particolare, è importante 
conoscere gli equivalenti inglesi dei 
termini tecnici prima citati. Per esem¬ 
pio la velocità di trasmissione dei da¬ 
ti, è definita come Baud rate, i para¬ 
metri definiti dall’utente, come User 
Definable Parameters, così come 
l’area Ram dedicata al buffer descritti 
poche righe fa è chiamata bufferspa- 
ce. 

Riprendendo a proposito il discorso, 
il bufferspace è strettamente legato 
per quanto riguarda le dimensioni, a 
quelle della memoria RAM disponibile 
sul proprio calcolatore; è chiaro per¬ 
ciò che un VIC 20 con 3.5 K RAM avrà 
un buffer space molto più piccolo di 
un C 128 che offre ben 128 K di me¬ 
moria. La dimensione del buffer spa¬ 
ce, cambia inoltre in funzione del 
software adottato anche sullo stesso 
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computer, dipendendo questo da co¬ 
me il programma è stato scritto. Alcu¬ 
ni programmi permettono di selezio¬ 
nare i colori dello schermo per poter 
effettuare delle combinazioni a piace¬ 
re. Nel caso specifico del Commodo¬ 
re, sono definibili i colori per lo 
schermo lo sfondo e il testo. 

Un’altra opzione, spesso presente e 
tra l’altro molto utile, permette di se¬ 
lezionare il tipo di modem utilizzato, 
questo per permettere all’utente di 
poter agevolmente cambiare modem 
senza nessun problema di carattere 
tecnico. 

E ora dulcis in fundo, il software di 
pubblico dominio: grazie alle bulletin 
boards che al 99% hanno un’area de¬ 
dicata al software, è possibile prele¬ 
vare (e depositare) una gran quantità 
di software. Le opzioni che consento¬ 
no tali operazioni, stanno sotto il no¬ 
me di download ad upload, rispettiva¬ 
mente per prelevare e depositare pro¬ 
grammi. Per effettuare ciò è vincolan¬ 
te che i 2 terminali in questione, usi¬ 
no lo stesso protocollo di trasmissio¬ 
ne, per esempio l’XMODEM che è un 
protocollo implementato sul software 
di tutti o quasi i personal-home com¬ 
puter diffusi in commercio. Un esem¬ 
pio ad hoc può essere questo: un 
computer x è collegato ad un compu¬ 
ter Y, essi possono trasferire files o 
programmi da uno all’altro, supponia¬ 
mo da x a y. Il programma che viene 
trasmesso, concepito per il computer 
x, non è detto che debba girare sul 
calcolatore y. Questo è collegato ad 
un computer z con le stesse caratteri¬ 
stiche di x: y trasferisce il programma 
a z il quale può far girare tranquilla¬ 
mente il programma in questione, 
realizzato sul computer x. 

Potete capire che la possibilità di tra¬ 
sferire file da un computer ad un al¬ 
tro, anche se di marca e caratteristi¬ 
che tecniche differenti, è di notevole 
importanza e utilità. 

Concludiamo qui questa panoramica 
generale. 
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In questo articolo introduciamo le nozioni teoriche fondamentali 
che riguardano IL LINGUAGGIO PROLOG. Vedremo come questo 
linguaggio di Programmazione si basi sulla logica , cioè su quella 
disciplina matematica che studia gli aspetti formali dei 
ragionamenti. 


Attenzione! 

In questa 1 • puntata 
si parla, tra l’altro di: 

LOGICA 
CONCLUSIONI 
CALCOLO DEI PREDICATI 
CALCOLO DELLE PROPOSIZIONI 
CONNETTIVI LOGICI 
TAUTOLOGIA 
CONTRADDIZIONE 
INTERPRETAZIONE 
GOAL 

le 

basi 

logiche 

del 

PROLOG 

La logica _ 

■ delle proposizioni 

Per logica si intende lo studio delle 
regole che governano la deduzione di 
frasi vere chiamate conclusioni (o 
teoremi) a partire da altre frasi vere 
chimate assiomi (o premesse). 

I logici hanno sviluppato nel corso 
dei secoli un sistema matematico ca¬ 
pace di analizzare formalmente il si¬ 
gnificato dei ragionamenti umani: ta¬ 
le sistema ha preso il nome di calcolo 
dei predicati. 

II calcolo dei predicati è un linguag¬ 
gio logico sviluppato apposta per 
controllare formalmente («meccanica- 
mente») la validità dei ragionamenti. 
La logica si occupa della rappresenta¬ 
zione delle frasi (dette proposizioni), 
delle relazioni che le riguardano, e 


dei metodi di deduzione di altre pro¬ 
posizioni a partire da quelle date. 

Il calcolo dei predicati si basa su un 
calcolo più semplice, chiamato calco¬ 
lo delle proposizioni. L’idea più im¬ 
portante di questo calcolo semplifica¬ 
to è quella di verità (o falsità). Gli 
elementi del calcolo sono infatti frasi 
italiane vere oppure false. 
Immaginiamo di elencare una serie di 
asserzioni di natura qualsiasi, di cui 
supponiamo di conoscere a priori la 
verità oppure la falsità. 

“Romeo ama Giulietta 
il sole sorge a mezzogiorno 
a è più bello di b 
tre per otto fa ventisei ” 

Tali proposizioni vengono chiamate 
elementari, perché costituiscono gli 
elementi di base del calcolo propor¬ 
zionale. Si noti che il loro valore di 
verità può essere completamente arbi¬ 
trario: ad esempio, se non ho mai let¬ 
to la famosa tragedia di Shakespeare 
posso benissimo pensare che la prima 
affermazione sia falsa. In effetti, le 
proposizioni in sé stesse non interes¬ 
sano al logico, che invece si occupa 
di ciò che succede quando vengono 
utilizzate per comporre frasi più com¬ 
plesse mediante gli operatori proposi¬ 
zionali, detti connettivi logici. Questi 
sono operatori matematici che hanno 
come argomento delle proposizioni e 
formano espressioni che sono propo¬ 
sizioni più complesse. Scopo del cal¬ 
colo dell’espressione complessa così 
formata è di stabilire la sua verità o 
falsità, noti che siano i valori di veri¬ 
tà delle proposizioni atomiche e alcu¬ 
ne proprietà astratte dei connettori. 

I connettivi logici più importanti so¬ 
no 5 (nel seguito P e Q rappresentano 
proposizioni arbitrarie): 

P and Q 

La proposizione complessa è vera se e 
solo se sono vere entrambe le propo¬ 
sizioni atomiche che costituiscono gli 
operandi. 

P or Q 


La proposizione complessa è falsa se 
e solo se entrambe quelle atomiche 
sono false. 

not P 

Se P è vera not P è falsa, e viceversa. 

P -> Q 

Se P e Q sono entrambe vere, la pro¬ 
posizione complessa (che va letta «se 
P allora Q») è vera. Inoltre, se P è 
falsa non importa cosa valga Q, la 
proposizione nel suo complesso è ve¬ 
ra. 

P = Q 

Se P e Q sono entrambe false o en¬ 
trambe vere allora la proposizione 
complessa è vera. 

Alcuni esempi 

Consideriamo alcuni esempi. Partia¬ 
mo con le seguenti proposizioni, che 
per brevità denominiamo ReB, deci¬ 
dendo arbitrariamente che esse sono 
entrambe vere. 

A = Fido è un cane 


B = Fido ha una coda 


not A 

è falso 

A and B 

è vero 

A and (not B) 

è falso 

A or B 

è vero 

(not A) or (not B) 

è falso 

A -X B 

è vero 

A —X (not B) 

è falso 

(not A) -X B 

è vero 


Si noti che il significato del connetti¬ 
vo —X è controintuitivo, diversamen¬ 
te dagli altri; vogliamo dire che le 
frasi formate con questo operatore 
hanno un significato che non è quello 
che il buon senso si aspetterebbe. 
Quando si gioca con la logica non bi¬ 
sogna fidarsi troppo della propria in¬ 
tuizione, ma è meglio affidarsi alla 
definizione formale degli operatori. 
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Nel caso dei connettivi, questi sono 
completamente definiti dalle tavole di 
verità, che sono tabelle che permetto¬ 
no di stabilire il risultato dell’opera¬ 
zione per qualsiasi valore delle propo¬ 
sizioni di partenza. 

Diamo di seguito le tavole di verità 
dei quattro operatori più importanti: 


99 non è difficile 
costruire un 
programma 
PROLOG 
per valutare 
una formula 
logica „ 


A B 
f f 
f v 
v f 

V V 


A and B 
f 
f 
f 
v 


A or B 
f 
v 
v 

V 


A —XB 

V 

V 

f 

V 


A = B 
v 
f 
f 

V 


Grazie a queste tabelle, si può verifi¬ 
care che tra i connettivi esistono delle 
relazioni formali vere per qualsiasi 
valore degli argomenti. Alcune di 
queste relazioni, che chiamiamo «teo¬ 
remi logici» in quanto dimostrabili 
con ragionamenti formalizzabili, sono 
le seguenti: 



(P or Q) = (not P) and (not Q 
not (P and Q) = (not P) or (not Q) 
not (P or Q) = (not P) and (not Q) 
not not P = P 

P or (0 and R) = (P or Q) and (P or R) 

P Q = (not P) or Q 

(P = Q) = (P and Q) or ((not P) and (not Q)) 


Una proposizione complessa che è 
sempre vera per qualsiasi valore dei 
suoi argomenti, come nel caso dei 
precedenti teoremi logici, si dice tau¬ 
tologica. Inversamente, una proposi¬ 
zione che è sempre falsa è detta con¬ 
traddizione. 

È una contraddizione 

A and (not A) 

Questa è, infatti, chiaramente una 
proposizione sempre falsa, qualunque 
sia il valore di A. 

Legate alle nozioni di validità e con¬ 
traddizione sono quelle di soddisfaci- 
bilità e non validità. Una formula è 
soddisj'acibile se esiste qualche asse¬ 
gnazione dei valori di verità delle sue 
componenti che la rendono vera. Una 
formula è non valida se esiste una 
qualunque assegnazione di valori di 
verità alle sue componenti che la ren¬ 
dono falsa. 

Non è difficile costruire un program¬ 
ma PROLOG che permetta di valuta¬ 
re se una formula logica è soddisfaci- 
bile oppure non valida, e determini 


inoltre per quali valori degli operatori 
valgono queste proprietà. 


soddisfacibile(true). 
soddisfacibile(X and Y) :— 
soddi sfaci bile(X), 
soddisfacibile(Y). 
soddisfacibile(X or Y) 
soddisfacibile(X); 
soddisfacibile(Y). 

soddisfacibile(not X) :— non valida(X). 

non-valida(false). 
non-valida(X or Y) 
non-valida(X), 
non-valida(Y). 
non-valida(X and Y) :— 
non-valida(X); 
non-valida(Y). 

non-valida(not X) :— soddisfacibile(X). 

Si noti che una formula non soddi- 
sfacibile è contraddittoria, mentre 
una formula non non-valida è una 
tautologia. 



Il calcolo 
dei predicati 


Finora non abbiamo parlato di pro¬ 
posizioni contenenti variabili. Infatti 
queste possono essere usate nelle pro¬ 
posizioni atomiche solo congiunta- 
mente con un quantificatore, che è 
un operatore logico unario prefisso. 
Gli elementi di base del calcolo dei 
predicati sono le proposizioni quanti¬ 
ficate. Una proposizione quantificata 
presenta come prefisso un operatore 
quantificativo. Usando i quantificato¬ 
ri il calcolo diviene assai più compli¬ 
cato. 1 quantificatori del calcolo dei 
predicati sono due: 

Per ogni (quantificatore universale) 
esiste (quantificatore esistenziale) 

Il primo operatore stabilisce una pro¬ 
prietà (detta predicato) p di tutti gli 
elementi di un insieme, e si può leg¬ 
gere così: 

Per qualsiasi x appartenente all'insie¬ 
me vale p. 

Ad esempio: 

Per ogni x (uomo(x) 

ovvero «ogni uomo è mortale». 

Il secondo operatore stabilisce che al¬ 
meno un elemento dell’insieme di cui 
si parla gode della proprietà p: 

esiste almeno un x tale che vale p. 


Ad esempio: 

esiste x per ogni y (antenato(x,y)). 
ovvero «esiste un x che è antenato di 
tutti». 

1 programmi PROLOG sono definibi¬ 
li mediante la terminologia del calco¬ 
lo dei predicati. Un componente della 
base di conoscenze è una proposizio¬ 
ne quantificata universalmente: 

la) antenato(adamo,X). 

2a) nonno(X,Y) 

genitore(X,Z), 

genitore(Z,Y). 

equivalgono a 

lb) per ogni X Adamo è antenato 
di X. 

2b) per ogni X e per ogni Y X è 
nonno di Y se 

esiste Z tale che 
X è genitore di Z 
e Z è genitore di Y. 

Si noti che anche i fatti che non con¬ 
tengono variabili possono essere visti 
come fatti universali: 

3a) uomo(Socrate). 
equivale a 


LIST 8-9/87 


29 








INTELLIGENZA ARTIFICIALE 


3b) per ogni X (Socrate è un uomo). 

In questo caso il quantificatore non 
ha effetto perché la proposizione non 
contiene variabili, quindi non altera il 
significato normale del fatto. 

Le interrogazioni equivalgono invece 
a proposizioni negative quantificate 
esistenzialmente da dimostrare. Il 
goal 

4a) ?— mortale<X), uomo(X). 

equivale all’espressione logica 

4b) not esiste X(X è mortale and 
X è uomo). 

L’interprete PROLOG è un dimostra¬ 
tore di teoremi in forma esistenziale. 
Per esempio, in questo caso giunge 
ad una contraddizione perché trova 
un’istanza per la variabile X che ren¬ 
de il teorema falso (i logici dicono 
che trova un controesempio). 
Nell’ambito del calcolo dei predicati 
le proposizioni quantificate, così co¬ 
me le abbiamo definite, sono asser¬ 
zioni puramente formali: non possia¬ 
mo dire se sono vere o false, perché 
non è ben definito né l’insieme di 
partenza né il significato preciso dei 
predicati. Per attribuire un valore di 
verità alle proporzioni abbiamo biso¬ 
gno di una interpretazione ben defini¬ 
ta. 

Le «clausole di Horn» 

Un’ interpretazione è la definizione di 
un universo (cioè un insieme di ogget¬ 
ti astratti) e delle relazioni e funzioni 
ivi definite: gli oggetti dell’universo, 
le relazioni e le funzioni sono associa¬ 
ti ai simboli del calcolo. In questo 
modo, di qualsiasi formula si potrà 
decidere se è vera o falsa (rispetto a 
quella interpretazione). 

Esiste una forma particolare di pro¬ 
posizione che permette comunque di 
ben definire una interpretazione: tale 
forma si chiama «a clausole di 
Horn». 

Una clausola di Horn è una for¬ 
mula del prim’ordine di questo ti¬ 
po: 

Se predi(...) è vero 
ANI) pred2(...) è vero 

ANI) predN(...) è vero 
ALLORA PREDÒ...7 È VERO. 

In notazione PROLOG scriveremo 

pred(...) 

pred1(...), 

pred2(...), 

predN(...). 


In et letti, tutti i predicati PROLOG 
sono clausole di Horn. Questa nota¬ 
zione è immportante perché, se tutte 
le proposizioni di una teoria la usa¬ 
no, allora basta una sola regola di in¬ 
ferenza per dedurre nuove proposi¬ 
zioni oppure per controllare se un 
certo teorema è vero. 

Tutto questo ha un benefico effetto 
sulla costruzione dell’interprete PRO¬ 
LOG che usa proprio una di queste 
regole universali: il principio di riso¬ 
luzione. questa è una regola di infe¬ 
renza sciperta da J. A. Robinson nel 
1965 che permette di dedurre una 
clausola a partire da altre due se que¬ 
ste sono in una forma particolare. 

Esempio 

Per esempio, date le clausole 

x or y 
not x or z 

si può dedurre la elusola 

y or z 

In generale il principio di risoluzione 
consiste nel dedurre la formula detta 
«risolvente» 

yl or ... yn or zi or ... or zm 

a partire dalle due clausole 

x or yi or ... or yn 
non x or zi or ... zm. 

La congiunzione di clausole 

ci and c2 ... and cn 

viene rappresentata in forma di insie¬ 
me di clausole, detta forma di Horn: 

;c1, c2, ..., cn]. 

La base teorica del principio di riso¬ 
luzione è il seguente teorema di riso¬ 
luzione. 

Sia F una formula data in forma 
standard: 

F = CI AND C2 AND ... AND (p 
OR Li) ... ) NON p OR Lj) AND ... 
AND CN 

Sia R laformula equivalente 

R = CI AND C2 AND ... AND (Li 
OR Lj) AND ... AND CN 

La clausola (Li OR Lj) si chiama ri¬ 
solvente. Il teorema dice che, se la 
formula R è contraddittoria, anche la 
formula F lo è. 

L'algoritmo di unificazione 

Il cuore dell’algoritmo derivato dal 
principio di risoluzione, che governa 
il funzionamento dell’interprete PRO¬ 
LOG, è l’algoritmo di unificazione, 
che costituisce la base del meccani¬ 
smo di inferenza. Per comprendere 
come funziona l’unificazione occorre 
introdurre la nozione di sostituzione. 


Dato un termine t contenente variabi¬ 
li, si chiama sostituzione s una lista 
di coppie. 

(variabile, valore) 

dove ciascuna variabile ricorre una 
volta sola ed è contenuta in t. Se si 
applica la sostituzione al termine — 
questa operazione viene denotata dal 
simbolo s(t) — si ottiene una istanza 
di t. Per esempio, dato il termine 
condì x,Z|,X,|I,Y|) 
e la sostituzione 
((X,[ = ]),(¥,4)) 

l’applicazione della sostituzione al 
termine ottiene l’istanza 
s(t) = concili, 21, |3|, |1,4J) 

Si dice che un termine II è unificabile 
con un termine 12 se esistono due so¬ 
stituzioni si e s2 tali che, applicate ri¬ 
spettivamente a tl e t2, ottengono 
un’istanza comune, t. 
t = sl(tl) = s2(t2) 

Se le sostituzioni si e s2 sono uguali, 
vengono chiamate unificatori dei ter¬ 
mini tl e t2. L’algoritmo di unifica¬ 
zione calcola un particolare tipo di 
unificatore, quello più generale. 
L’unificatore più generale genera le 
istanze comuni più generali, ed ha la 
proprietà notevole che, se esiste, è 
unico (a meno di una ridenominazio¬ 
ne delle variabili). Se l’unificatore più 
generale non esiste l’algoritmo falli¬ 
sce. 

A questo punto possiamo brevemente 
delineare il funzionamento dell’inter¬ 
prete di un linguaggio logico quale è 
il PROLOG. 

Una computazione comincia da un 
goal G e, se termina, ha due possibili 
risultati: successo o fallimento. La 
computazione procede per trasforma¬ 
zioni e riduzioni del goal. Ad ogni 
passso viene scelto un predicato nel 
goal e una clausola nella base di co¬ 
noscenze, in modo che la testa della 
clausola unifichi con il predicato del 
goal. La computazione continua con 
un nuovo goal, ottenuto rimpiazzan¬ 
do il predicato con il corpo della 
clausola prescelta, dopo aver applica¬ 
to l’unificazione più generale. La 
computazione termina con successo 
quando il goal è vuoto. Termina in¬ 
vece con fallimento quando l’algorit¬ 
mo di unificazione fallisce nella ricer¬ 
ca dell’unificatore più generale su tut¬ 
ti i componenti del goal. 

Se la computazione termina con suc¬ 
cesso, la combinazione delle sostitu¬ 
zioni che hanno soddisfatto G è il ri¬ 
sultato stampato in output. 
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Schermate rapide col VDP 


Ile volte può risultare fastidioso veder affiorare 
lentamente sul video le immagini in alta risoluzio¬ 
ne composte con lo SCREEN 2, specie su queste 
immagini appartengono ad un fondale di gioco che per 
forza di cose e per stile deve passare agevolmente da una 
schermata all’altra. 

in questo caso l’intervento e la manipolazione del VDP (vi¬ 
deoprocessore MSX), colma le lacune del Basic standard 
del nostro elaboratore. 

Per ottenere shermate «unitarie» dei fondali creati, dob¬ 
biamo agire sul registro n. 1 dello stesso VDP, il quale è 
ordinato in 8 bit di diversa funzione, difatti: 

Il bit 0 determina un eventuale ingrandimento dello sprite 
se posto a 1, non ingrandito se posto a 0 
Il bit 1 determina la dimensione dello sprite a 0 se di 8 by¬ 
te, a 1 se di 32 byte 
Il bit 2 non può essere utilizzato 

I bit 3 e 4 vengono letti in contemporanea al bit 1 del regi¬ 
stro 0 per determinare il modo operativo del VDP 

II bit 5 abilita gli interrupt 

Il bit 7 riporta la quantità di VRAM ancora disponibile alle 
funzioni del VDP 

Il bit 6 (non l’avevamo dimenticato) è proprio quello che 
serve al nostro scopo, perché abilita o meno alla visualiz¬ 
zazione su video tutto quello che gli viene immesso trami¬ 
te tastiera o inserto grafico. 

Per cui, se il bit 6 viene posto a 0 lo schermo non visua¬ 
lizzerà nulla e al contrario se posto a 1 riattiverà immedia¬ 
tamente la stampa in video mostrando fulmineamente ciò 
che vi è stato impostato sino a quel momento. 

Nel seguente mini-list avrete prova di quanto detto: 

10 SCREEN 2:COLOR 15,4,4:CLS 
20 VDP(1) = VDP(1)AND&HBF 
30 FOR T = 1 TO 15 
40 CIRCLE (10xT,90),20,T 
50 NEXT T 

60 VDP(1) = VDP(1)OR&H40 
70 GOTO 70 

Una serie di circonferenze disegnate dal ciclo T (righe SO¬ 
SO) verrà dapprima NON visualizzata dalla riga 20, quindi 
riabilitata in video dalla riga 60. 


Potrete utilizzare questo sistema per qualsivoglia scher¬ 
mata, riproponendo il «giochetto» anche più volte nello 
stesso programma. 


• Dal modo grafico 

al modo testo senza SCREEN 

Un semplicissimo richiamo in codice macchina condotto 
da una DEFUSR con particolare indirizzo, ci fa muovere 
immediatamente dagli schermi grafici all’ultimo modo te¬ 
sto usato, il tutto con gran velocità e per nulla intaccando 
i valori dati a qualsiasi variabile. Vediamo subito il mim- 
list che evidenzia in pratica questa vantaggiosa operazio¬ 
ne. 

10 SCREEN 2 

20 CICLE (100,100),30,8 

30 FOR T=1 TO 2000:NEXT T:BEEP 

40 DEFUSR = &HD2 

50 PRINTUSR (0):CLS 

60 PRINT “Sono passato al modo testo” 

70 PRINT “senza l’istruzione SCREEN!” 

80 GOTO 80 

11 listato inizializzato con SCREEN 2 (poteva anche essere 
SCREEN 3), stampa una unica circonferenza in nero quasi 
al centro dello schermo (riga 20), l’immagine resta sul vi¬ 
deo per 2000 cicli fino al suono di un BEEP (riga 30). 

Le linee 40 e 50 sono la soluzione al nostro problema (po¬ 
trete implementarle in qualsiasi programma) e alla lettura 
di queste, l’interprete Basic passa all’ultimo modo 
SCREEN di testo che avete usato, mostrando la scritta (ri¬ 
ghe 60-70) che ne conclama il risultato. 

Se invece vogliamo passare inequivocabilmente allo 
SCREEN 0, La linea 40 del listato deve mutarsi in: 

40 DEFUSR = &H6C 

Come vedete sia il VDP che il codice macchina possono 
risolvere problemi che i manuali non riportano e che 
all’inizio appaiono insormontabili. 

Seguiteci con assiduità e noi continueremo a rifornirvi di 
tante piccole utilità. r 
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L’istruzione LINE negli MSX 


- A cosa serve - 

La LINE può tracciare delle LINEE, disegnare il PERIME¬ 
TRO di un QUADRATO o di un RETTANGOLO, questi ulti¬ 
mi a loro volta possono anche essere riempiti senza l’uso 

del PAINT. 

- La sintassi - 

LINE STEP (C,R)—STEP (CO,RI),COL,B o BF 

STEP = pone l’origine delle coordinate relative all’ultimo 
punto raggiunto, se omesso, le coordinate dovranno rifar¬ 
si a quelle specificate nella sintassi 
C ed R = rispettivamente colonna e riga di partenza per 
la produzione del tratto 

CO e RI = rispettivamente colonna e riga di arrivo del 
tratto desiderato 

COL = colore del tratto fra i 15 consentiti (da 1 a 15), se 
omesso si rifà a quello inserito nell’istruzione SCREEN 
(colore di primo piano) 

B = disegna un perimetro che ha come diagonale le coor¬ 
dinate C,R e CO,RI 

BF = disegna un BOX riempito del colore assegnato con 
la medesima diagonale esposta per B. 

Esempi pratici 

• Stampa di una retta • 

10 SCREEN 2:COLOR 2,15,15:CLS 
20 LINE (20,30)—(80,95),2 

La retta verrà disegnata dalle coordinate 20,30 per finire 
alle 80,95. 

11 tratto avrà il colore verde (codice 2) 

■ Stampa di un perimetro - 
IO SCREEN 2:COLOR 15,1,1:CLS 
20 LINE (27,38)—(97,105),15,B 


li perimetro disegnato in nero (codice 1) avrà come diago¬ 
nale immaginaria quella iniziante dalle coordinate 27,38 e 
terminante in 97,105. 

• Stampa di un BOX pieno * 

10 SCREEN 2:COLOR 6,10,10:CLS 
20 LINE (63,54)—(180,155),6,BF 

11 rettangolo riempito di ROSSO (codice 6) avrà come dia¬ 
gonale il punto 63,54 come inizio e il punto 180-155 come 
fine. 


Casi particolari 

Omettendo il colore dovrete comunque inserire la virgola 
che lo designa: Esempio: LINE (100,100)—(140,140)„B 
Se dovete impostare un tratto a partire dall’ultimo punto 
raggiunto da una LINE potete anche digitare: 

Esempio: LINE (100,100)—(140,140) 

LINE —(150,150) 

Omettendo quindi il punto 140,140 già raggiunto dalla pre¬ 
cedente istruzione. 

Le coordinate del cursore grafico possono anche essere 
rappresentate da un PSET e in questo caso per ottenere 
la stampa del tratto digitate: 

Esempio: PSET (100,100) 

LINE —(20,30) 

Per ottenere dei tratti casuali potete inserire delle RND 
anche all’interno della stessa LINE: 

Esempio: 10 SCREEN 2:COLOR 15,3,3:CLS 
20 X = RND(—TIME):PSET (100,100) 

30 FOR G = 2 TO 100 

40 LINE—((RND(1) x 255),(RND(1) x 191)) 

50 NEXT G 
60 GOTO 60 

Per finire ricordiamo che la LINE nell’MSX è utilizzabile 
solo con gli SCREEN 2 e 3 e che la stessa istruzione ha il 
suo omologo nella potente istruzione DRAW che inoltre 
velocizza grandemente le operazioni di tratto. 

□ 
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C-128 


LEGGETE LA DIRECTORY DEL VOSTRO C-64 


La seguente routine permette di leggere la directory 
del disco e di visualizzarla sulo schermo. 

10 OPEN 2,0,2,"$" 

20 GE T#2,A$:GE T#2,A$ 

30 GET#2,L.$:GET#2,L$: IF S T -* 6 4 THENCL0GE2 : END 
40 GET#2,I.R$:GFT#?,HB$ : L N ~ASC( I B$+CHR$( 0) ) 

+ 256’”ASCf HB$- CHR$( 0) ) 

50 PRINT LN; 

60 GET02,A$:IFA$-V"THEN PRINT CHR$(13) 

; : GOTO 30 

70 PRTNTAS; : GOTO 60 

11 file directory, che come tutti sapete è chiamato 

può essere letto come un qualunque altro file 
residente sul disco. 


RIDEFINIAMO IL PUNTO DECIMALE 
SUL VOSTRO C-128 


Ecco qui una semplice e breve routine che permette 
di ridefinire il testo del punto decimale sul tastieri- 
no numerico del vostro C-128 in una virgola. 

La routine proposta, inoltre può essere utilizzata per 
modificare qualunque tasto della tastiera in un altro 
valore ASCII. 

10 REM * VIRGOLA PER TASTIERINQ NUMERICO * 
: NEXT 

20 FORI-OTO80:POKE 6912+I,PEEK( 64 1 28 + I) 

30 POKE 2757,PEEK(2757) OR 128 
40 POKE 030,0 :POKE 831,27 
50 POKE 6912+82,44 


C-64 


SIMULIAMO IL COMANDO PRINT AT SUL C-64 


Alcune implementazioni del BASIC hanno a disposi¬ 
zione il comando PRINT AT. 

Questo comando permette all’utente di posizionarsi 
in qualunque parte dello schermo specificando sem¬ 
plicemente la riga e la colonna. 

Purtroppo il nostro C-64 non ha implementato que¬ 
sto comando. 

Eccovi, comunque, un semplice programmino che vi 
permette di simulare il comando PRINT AT. 

10 PRINT CHR$( 147) : REM CLEAR SCREEN 
20 POKE 781,15: REM RIGA 

30 POKE 702,4 : REM COLONNA 

40 POKE 783,48 
50 SYS 65520 

60 PRINT"RIGA 15,COLONNA 4" 

Dopo aver digitato questo programma, «lanciatelo» 
e vi accorgerete che il cursore si posizionerà esatta¬ 
mente alla riga 15 e alla colonna 4. 

Ricordatevi soltanto che la prima colonna, sulla si¬ 
nistra dello schermo è numerata 0. 

Quindi per specificare la colonna dovrete scegliere 
un numero compreso nel range 0-39, mentre la riga 
può essere selezionata nel range 0-24. 


Per verificare il valore del tasto funzione, usare que¬ 
sta semplice istruzione: 

10 PRINT PEEK(213):GOTO 10 


C-128 


SPIRALE PER COMMODORE C-128 


Questo semplicissimo programma vi permette di di¬ 
segnare una spirale generata casualmente. 


10 REM * SPIRALE MAGICA C-128 * 

20 GRAPHIC 1 , 1 
30 BG-INT( RND( 1 )*15)+1 
40 BC-INT(RND(1)*15)+1 

50 F G -1N T (RND( 1)*15)+1 :IFFG-BG THEN 50 

60 COLOR 1 ,FG: COLORO,BG:C0L0R4,BC 

70 IN-INTfRND(1)*250)+1 

80 AN-INT(RND(1) *359) +1 

90 R=INT(RNDC 1) *9)+2 :T-INTfRND( 1)*15) 

100 DO UNTIL XR >100 

1 1 0 XR = XR + R:AN = AN + T 

120 CIRCLE 1,160,100.XR,,,,AN,IN 

130 LOOP :SLEEP2:CLR: GOTO 20 
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...esplorando 

C-64/C-128 


CONVERSIONE DEI TASTI FUNZIONE 
DAL C-64 AL C-128 


Qualunque programma del C-64 che utilizza i tasti 
funzione può essere «convertito» per poter lavorare 
sul C-128 grazie a questa semplice routine. 

10 REM * CONVERSIONE TASTI FUNZIONE * 

20 A-132 

30 FORI-1TO0STEP2:KEYI,CHR$(A+1) :A-A+1 :NEX T 
40 A =136 

50 FORI-2TO0STEP2:KEYI,CHR$(A + 1 ) :A = A+1 :NEX T 


C-64 


CONTROLLO DEI BLOCCHI LIBERI SUL DISCO 

Spesso lavorando con il vostro C-64 avrete avuto la 
necessità di sapere il numero di blocchi ancora libe¬ 
ri sul vostro floppy disk. 

Ecco qui una routine che vi permette di accedere al 
disco e di conoscere il numero esatto di blocchi che 
avete ancora a disposizione. 


10 OPEN 1 ,8,#, " : Z-U" 

20 F0RJ=1T035:GET#1,X$:NEXT 
30 GET/SM , Y$ : CLOSE 1 

4 0 BF=ASC(X$ + CHR$( fi) ) +256*ASC( Y$ + CHR$( 0)) 
50 PRINT BF "BLOCKS FREE ON OISK" 


TRUCCHI E TRUCCHETTI PER LO ZX-SPECTRUM 


CASSETTE TITLER 


di Angelo Coccettini 



... utile ai disordinati 


Questo programma ricerca e stampa 
i titoli dei programmi registrati nella cassetta 


Qualche volta capita di ritrovare qualche vecchia cassetta 
del proprio Spectrum priva della targhetta sulla quale so¬ 
no stati segnati i programmi registrati. La prima domanda 
che ci viene in mente è: cosa c’era registrato sopra? È 
chiaro che una scansione manuale della cassetta per ri¬ 
costruire l’intero elenco è un’operazione senza dubbio 
noiosa, specie per chi ha l'insana abitudine di usare delle 
interminabili C90. A questo punto, il nostro disordinato 
programmatore opta immediatamente per la decisione de¬ 
finitiva: la cassetta resta li cosi com’è o al massimo viene 
riutilizzata per la registrazione di altri programmi, con il ri¬ 
schio magari di cancellare il frutto del proprio lavoro. 
Avrete già capito dall’introduzione che il programma che 
vi proponiamo ha a che fare con il problema descritto. In¬ 
fatti il nostro CASSETTE TITLER permette la scansione 
automatica del nostro registrato, solevando così l’utente 
dal noioso compito di ricompilare l’elenco relativo alla 
cassetta. 

La nostra routine, per funzionare, necessità di una stam¬ 
pante, non importa quale essa sia. Vogliamo però farvi 
notare che chi possiede una stampante Sinclair o simili, 
come l’Alphacom, non ha bisogno del programma in BA¬ 
SIC, potendo ricorrere ad un piccolo trucco per dirottare i 
messaggi del LOAD verso la stampante. A dispetto di co¬ 


me potrebbe sembrare a prima vista, non è facile control¬ 
lare i messaggi del sistema, chi conosce un po' i canali 
dello Spectrum, potrebbe pensare di associare al canale 
#2, cioè al canale del video, il canale riservato alla stam¬ 
pante, che in genere è il #3. L’istruzione per realizzare ta¬ 
le connessione è: 

OPEN #2, "P” 

Ciò funziona solo in parte, nel senso che molte operazioni 
che prima avvenivano sullo schermo vengono ora dirottate 
sulla stampante (si badi bene che si tratta di stampanti 
Sinclair o simili). Solo pochi messaggi continuano a esse¬ 
re stampati sullo schermo, tra i quali anche quelli relativi 
al LOAD. Quando si usano invece stampanti controllate 
dall’interfaccia 1, come per esempio le EPSON, allora il 
discorso si fa più complicato perché dobbiamo metterci a 
stuzzicare i canali B o T, con risultati tutt’altro che soddi¬ 
sfacenti. Il trucco di cui abbiamo accennato sopra, valido 
solo per stampanti Sinclair o simili, consiste nel ridefinire 
i canali proprio a livello di indirizzamento, e ciò è possibi¬ 
le tramite la variabile di sistema CHANS, di indirizzo 
23631, la quale punta la zona di memoria nella quale ven¬ 
gono definiti i canali stessi. All’accensione, la variabile 
CHANS punta una zona contenente certi valori, della qua¬ 
le noi ne daremo spiegazione nella tabella che segue: 
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TRUCCHETTI DI PROGRAMMAZIONE PER ZX-SPECTRUM 


VALORE 

CONTENUTO 

qui punta 

CHANS— > 244 ; 

9 ; 
168 ; 
16 ; 
75 ; 
244 ; 
9 

196 ; 
21 ; 

qui punta 

CHANS + 9 83 ; 

129 ; 
15 ; 
196 ; 
21 
82 ; 
244 ; 
9 

196 ; 
21 
80 ; 
128 ; 


SIGNIFICATO 

PRINT-OUT: indirizzo ROM della 
routine di stampa 
KEY-INPUT: indirizzo ROM della 
routine di scansione tastiera 
codice ASCII di K 
PRINT-OUT 

REPORT J: messaggio di errore 
’lnvalid I/O device’ 

codice ASCII di S 

ADD-CHAR: indirizzo ROM routine di 
manipolazione memoria 
REPORT J 

codice ASCII di R 
PRINT-OUT 

REPORT-J 

codice ASCII di P 

END MARKER: fine spazio riservato 


to anche da coloro che possiedono stampanti Sinclair o 
simili. Il suo funzionamento è semplice: il linguaggio mac¬ 
china chiama la routine della ROM di LOAD per caricare 
l’HEADER. Ciò viene fatto con le seguenti istruzioni: 


LD DE,17 
XOR A 
SCF 

LD IX,35000 
JP 1366 


; DE deve contenere il numero di BYTES da 
; caricare: l’header è lungo 17 bytes. 

; azzera l’accumulatore. Ciò indica che si 
; sta caricando l’header 

; definisce l’inizio della zona di memoria 
; nella quale salvare l’HEADER 
; chiama la routine di LOAD nella ROM 


il programma in BASIC controlla la natura del FILE secon¬ 
do il codice caricato nella locazione 35000 e crea una va¬ 
riabile stringa, a$, alla quale aggiunge il nome delpro- 
gramma, i cui codici ASCII si trovano nelle locazioni 
35001. Le rimanenti locazioni contengono valori di diverso 
significato, a questo punto la stringa viene stampata tra¬ 
mite l’istruzione BASIC 


PRINT # 3;A$ 

Il ciclo viene ripetuto infinite volte, interrotto da un breve 
ciclo di FOR alla linea 180 per evitare che il programma 
legga anche i primi 17 bytes del corpo del programma che 
segue l’HEADER. 


La spiegazione è semplice: il primo indirizzo si riferisce 
alla routine di OUTPUT relativa al canale specifico; il se¬ 
condo indirizzo è invece la routine di INPUT mentre il co¬ 
dice ASCII è proprio il codice di identificazione del cana¬ 
le. Cosi il canale K, o canale della tastiera, ha come OUT¬ 
PUT lo schermo e come INPUT la tastiera. I canali che 
non possono avere INPUT, come la stampante, definita 
dalla lettera P, rimandando alla routine di errore REPORT- 
J. I rimanenti canali sono quelli definiti dalla lettera S, 
che è in pratica il video, e dalla lettera K, a cui è affidata 
la comunicazione con la memoria. A questo punto siamo 
in grado di svelarvi il trucchetto: si tratta semplicemente 
di cambiare il codice di ’S’ con ’P’ alla locazione 
CHANS + 9, dando semplicemente: 

POKE (PEEK 23631 +256* PEEK 23632) + 9,CODE(“P”) 

A questo punto, tutti i messaggi precedentemente diretti 
verso lo schermo vengono dirottati inesorabilmente verso 
la stampante, compresi quelli del LOAD. Basta quindi 
cambiare il codice suddetto digitando in modo diretto il 
POKE sopra riportato, poi date LOAD “XXXX” (dove per 
XXXX si intende un programma che NON deve esistere) e 
avviate il registratore (ovviamente dentro al registratore ci 
deve essere una cassetta). Ogni messaggio proviene dal 
sistema di Caricamento e Salvataggio verrà ora inviato in 
modo automatico alla stampante, che provvederà a fornir¬ 
vi una lista completa dei programmi registrati sulla cas¬ 
setta. 

Tutto il discorso appena fatto non vale per chi possiede 
una stampante collegata tramite la interfaccia 1. Si po¬ 
trebbe pensare di sostituire il codice S dello schermo con 
il rispettivo T o B riservato ai canali della interfaccia, ma 
ciò non porta a nessuna conclusione tranne quella di ve¬ 
dere lo Spectrum comportarsi in modo strano. Per ottene¬ 
re lo stesso risultato dobbiamo ricorrere ad un program¬ 
ma in BASIC e Linguaggio Macchina, che può essere usa¬ 


li^ REM * CASSETTE SCANNER * 

20 REM 

3 0 E A N D O M 1. 1 . E U S E 30000 

40 LEI a-PEEK 35000 

50 IF a=0 THEN I. ET a$="Program 


60 IF a=l THEN i ET a$=“Charact 
er Array: " 


70 

IF a=2 

THEN 

LEI 

aT“ : “ 

Number 

array 

, U tt 





80 

If 

IF a—3 

1 FIRN 

LET 

a$=" 

By t es ì: 

90 

FOR -f =3 

5001 

TU 

35010 


100 

LEI ri 

a$ + LITRT 

( PEEK 

( f ) ) 

1 .1 0 

NEXT f 





120 

PRINT tt 

3 sa* 




130 

l-OR f=0 

TO 1 

200 

s NEX 

T f 

140 

GL) TO 3 

0 




150 

: 





160 

REM * !... 

/M elodee 

* 


1 70 

s 





180 

FOR -f =3 

0000 

"1 O 

30011 


190 

READ a: 

POKE 


a 


200 

NEXT -f 





210 

STOP 





220 

DAI A 1 ; 

, 17,0 

',17 

5,55, 

1 •) •••' '.i 

184 , 1 

36,195, 

86,5 





...Altri trucchetti 
al prossimo numero 
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SPECTRUM 


toh^sPECIEI^ 



ma che P®"— introdotto 

SSSS» " e " a pr 

MIC. 


I programma principale, scritto in Basic, compren¬ 
de tre subroutines principali. 

Listen A questa parte del programma è affidato il 
compito di ascoltare il mondo esterno tramite le prese 
Ear o Mie, senza distinzione. I risultati migliori si ottengo¬ 
no registrando la voce su cassetta e farla ascoltare al 
computer come se si trattasse di un programma. Alcune 
volte può capitare che lo Spectrum sia duro d’orecchi. Ciò 
significa che il livello di Input è sotto la soglia di ascolto. 
Dovete pertanto alzare il volume di registrazione. 

Edit Questa subroutine si divide a sua volta in due parti: 
Memory Allocation e Speech Speed. La prima funzione 
permette di definire la locazione iniziale e la lunghezza 
della registrazione digitalizzata. La seconda funzione, 
Speech Speed, definisce la velocità di esecuzione del 
prezzo da riprodurre. 

Speak È la subroutine alla quale è affidato il compito di 
farvi ascoltare ciò che avete registrato. Fate bene atten¬ 
zione a come definite il volume di Input: alcune volte il 
pezzo riprodotto può risultare un gracchiare continuo. 
Digitate il listato 1 e date quindi RUN 900. Il programma 
genererà i codici macchina necessari per il corretto fun¬ 
zionamento e poi visualizzerà il menu principale, dal qua¬ 
le potrete accedere a tutte e tre le opzioni sopra presenta¬ 
te. Ricordatevi quindi di salvare Talking Spectrum con un 
autostart definito alla linea 900, altrimenti il programma 
resterà sprovvisto del linguaggio macchina, con le spiace¬ 
voli conseguenze che immaginate. 


LIST 


1 

10 

REM ******************** 

20 

REM * TALKING SPECTRUM * 

30 

REM * 

by * 

40 

REM *Angelo 

Coccettini* 

50 

REM * Giulio 

Vannini * 

60 

REM * COPY .. 

1987 LIST * 

70 

R e M ************* * * * * * ** 

80 

: 


90 

CLEAR 32767: 

BORDER 0: RAFIE 

R 0: 

INK 7: CLS 


100 

GO SUB 160 


110 

IF c ~ 1 THEN 

GO SUB 260 

120 

IF c=2 THEN 

GO SUB 360 

130 

IF c=3 THEN 

GO SUB 470 

140 

GO TO 100 



LIST 

150 

: 





.160 

REM *** MENU 

*** 



170 

■ 





180 
Cl’ M 

CLS : 

FRINT AT 0,10; 

il 

OPTION 

O 

190 

FRI NT 

AT 5,7; 

" 1. 

S 

PEAK" 

200 

PR I NT 

AT 7,7; 

Il *2 

L 

ISTEN" 

210 

FR I NT 

AT 9,7; 

il “T 

EDIT" 

220 

INPUT 

c 




230 

IF c< 

1 OR c>3 

THEN GO 

TO 22 

0 






240 

PAUSE 

50: RET 

URN 



250 

■ 





260 

REM *** SPEAK 

*** 



270 

:: 





280 

CLS 





290 

FRI NT 

AT 0,10 

?"SFEAH 


MODE " 

300 

FRI NT 

AT 5,3; 

"Press 

' 

ENTER 

to : 

BREAK" 





310 

LET sp eak=328 

16 



320 

INPLJT 

LINE a* 





330 RANDGMIZE USR speak 
340 PAUSE 50: RETURN 
350 : 

360 REM *** LISTEN *** 

3 70 : 

380 CLS s FRINT AT 0,7?"LISTEN 
MODE" 

390 FRI NT AT 5,5? "Hit. 'ENTER' & 
t. h e n p r e s s ' P L A Y ' o n t a p 

e recorder" 

400 LET cir=32855 
410 LET 1 ist:en=32768 
420 RANDGMIZE USR clr 
430 INPUT LINE a* 

440 RANDGMIZE USR listen 
450 PAUSE 50: RETURN 
460 : 

470 REM *** EDIT *** 

480 s 

490 CLS : FRINT AT 0,10;"EDIT M 
ODE " 

500 FRINT AT 5,5;"1 « - MEMORY ALL 
OSATION" 

510 FRINT AT 7,5?"2..SPEECH SFE 
ED" 

520 INPUT d 

530 IF d = 1 THEN GO TO 570 
540 IF d=2 THEN GO TO 740 
550 GO TO 470 
560 : 

570 REM *** MEMORY ALLOCATION * 
** 

580 : 

590 CLS 

600 FRINT AT 0,5;"MEMORY ALLOCA 

r i on " 

610 FRINT AT 5,0?"CURRENT STATO 
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LIST 


SS" 

620 PRINT AT 7,0;"START >";PE 
EK 32769+256*PEEK 32770 
630 PRINT AT 8,0;"COUNTER >" ; PE 
EK 32772+256*PEEK 32773 
640 PRINT AT 10,0;"NEW STATUS" 
650 PRINT AT 1.2,0; "START >"; 
660 INPUT ss PRINT s 
670 LET x“INT (s/256)s LET y*s- 
<x*256> 

680 POKE 32769,ys POKE 32770,x: 
PGKE 32817,y: POKE 32818,xs POK 
E 32856,ys POKE 
32857, x 

690 PRINT AT 13,0;"COUNTER >"; 
700 INPUT s: LET x=INT (s/256): 
LET y=s-(256*x) 

710 POKE 32772,y: POKE 32773,XI 
POKE 32820,y/2: POKE 32821,x/2: 
POKE 32859,ys P 
OKE 32860,x 

720 PRINT ss PAUSE 50: RETURN 
730 : 

740 REM *** SPEECH SPEED *** 

750 : 

760 CLS s PRINT AT 0,7;"SPEECH 
SPEED" 

770 PRINT AT 5,0;"COURRENT SPEE 
D" 

'780 PRINT AT 7,0;"SPEED >";PEEK 
32829 

790 PRINT AT 10,0;"NEW SPEED (1 
-255) " 

800 PRINT AT 12,0;"SPEED >"; 

810 INPUT s 

820 POKE 32829,ss POKE 32841,s 
830 PRINT ss PAUSE 50; RETURN 
840 s 

850 REM *** L/M *** 

860 : 

870 DATA 33,0,250,17,0,4,243,2.1. 
9,254,254,255,40,250,52,219,254, 
254,255,40,12,52 

,24,247,219,254,254,255,32,11,52 
,24,247 

880 DATA 35,27,122,179,32,241,2 
51,201,35,27,122,179,32,224,251, 
201,33,0,250,17, 

0,2,243,78,62,16,211,254,6,3,16, 
254,13,32,249,35,78,151,211,254 
890 DATA 6,3,16,254,13,32,249,3 
5,27,122,179,32,226,251,201,33,0 
, 250,17,0,4,54,0 
, 27,122,179,200,35,24,247,0,0 
900 RESTORE 

910 POR s=0 TO 103: READ as POK 
E 32768+s,a: NEXT s 
920 RUN 




rogram Compactor è un programma di utilità com¬ 
posto da tre routines in linguaggio macchina rilo- 
cabile che permette di ridurre l’area di memoria 
occupata da un programma Basic, con conseguente au¬ 
mento della velocità di esecuzione. 

La prima routine sostituisce le cifre di ogni numero con 
un solo punto decimale, riducendo in tal modo la lunghez¬ 
za complessiva del programma. È noto infatti che ogni nu¬ 
mero in virgola mobile viene conservato in memoria sotto 
forma di una espressione numerica che non viene visua¬ 
lizzata sullo schermo durante le normali operazioni di edi¬ 
tor. Le cifre che compaiono all'Interno delle righe servono 
solamente come riferimento per il programmatore costi¬ 
tuiscono per il computer soltanto uno spreco di memoria. 
La routine da noi proposta non altera l’espressione «na¬ 
scosta» ma diminuisce il numero di bytes usati per la rap¬ 
presentazione decimale. Dovete comunque fare attenzione 
perchè dopo aver sottoposto il programma a questo trat¬ 
tamento non sarete più in grado di leggere alcun numero 
né di riportare allo stato originale il programma. 

La seconda utility accorcia il nome delle variabili lunghe. 
I nuovi nomi saranno rimpiazzati da espressione del tipo 
AO, BO, CO fino a ZZ. 

L’ultima routine unisce in modo intelligente il maggior nu¬ 
mero di linee Basic. Per far ciò è necessario che gli argo¬ 
menti dei Goto, Gosub, ecc. siano costanti. Ciò non vale 
per List, Llist, o Save "Line. 

Le routine in UM sono state scritte in modo da risultare 
completamente rilocabili e quindi compatibili con ogni 
versione di Spectrum. Copiate quindi il listato e poi defini¬ 
te tramite INPUT la locazione d’inizio da voi prescelta. 
Noi, comunque, vi consigliamo di usare l’area destinata ai 
caratteri grafici, se non li utilizzate, altrimenti quella im¬ 
mediatamente prima. Le varie routine hanno come indiriz¬ 
zo di chiamata le seguenti locazioni: 

Cancella i numeri: start 
Accorcia le variabili: start + 46 
Unisci le linee: start + 36 


LIST 


1 

10 

REM 

* * * *• «■ * ****** * * •* * * * * * * 

20 

REM 

* PROGRAM COMPACTOR * 

30 

REM 

* A n geI o Coccet: t: i n i * 

40 

REM 

* Gi ul i o Vann i n i. * 

50 

REM 

* cop. 1987 LIST * 

60 

REM 

#• # * * * * * * # * * * * •* * * * * •* * 

70 

80 

REM 

*** L/MCODE *** 

90 

100 

DATA 

205,427+st ar t ,254, 46 , 4 


► ►► 
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PROGRAM COMPACTOR 


LIST 2 


LIST 3 1 

0,19,254,196,40,15,205,136,44,48 
,25h 254,65,56,6,205,65,41,223,24 
, .1 4,54,4 6,84,93,35 , 126,254,1 4,32 
„ 250,19,205,399-1-start, 43 

110 DATA 205,452+start,24,213,2 

37,123,61,92,205,179,30,33,65,48 


180 DATA 126,230,192,194,176,27 
,229,205,360+start,203,254,225,2 

05,184,25,235,24,237,205,110,25, 

126,230,192,192,205,360+start,20 

3,190,201,35,35,35,195,171,40,12 

6,230,192 

190 DATA 192,50,71,92,86,35,94, 

, 34, 1 46,92,205,427+st ar t, 205,141 


,44,48,64,235,231,235,205,136,44 


237,83,69,92,35,229,221,225,94,3 

,48,56,34,93,92,229,217,229,205 


5,86,34,93,92,25,35,34,85,92,237 

120 DATA 31,28,35,48,30,237,91, 


,98,217,201,205,221,25,197,196,2 

146,92,205,182,42,123,28,254,90, 


32,25,217,193,9,217 

32, 10,30,65,122,20,254,57,32 .. 2,2 


200 DATA 201,126,205,182,24,254 

2,65,237,83, 146,92,205,255,4221 


,34,34,93,92,192,35,71,237,177,2 

7,225,217,209,35,237 


4,240,42,83,92,205,366+st art,194 

130 DATA 160,237,160,223,205,39 


,176,27,231,253,52,13,254,206,32 

9+start ,43,205,452+start ,*24,182, 


, 9,35,205,411+st.ar t , 254,41,32 

42,83,92,205,366 +-start , 32,101,23 


210 DATA 248,35,205,4 U+st art, 2 

1,246,128,42,69,92,254,235,40,73 


34,58,40,232,254,203,40,228,254, 

,254,237,229,245,204,347+start,2 


234,40,3,254,13,192,217,221,94,0 

41,225,40 


,221,86,1,235,237,82,221,117„0,2 

140 DATA 25,35,254,236,40,242,2 


21,116,1„42,85,92,24,194 

54,247,40,238,254,250,40,49,254, 
234,40,45,254,254,40,41„254,229, 


220 : 


2 ó 0 R E. M * * ■* U A h: IC A 1 (..) R E. L / M * * * 

32,40,231,205,72,32,1,0,0,254,46 


240 : 

,40,7,40,22,205,27 


250 INPUT "start address: "5 sta 

150 DATA 45,56,117,62,14,71,237 


rt 

, 177,205,180,51,126,205,72,32,32 


260 IF star t.+4 91 > P E E K 23732+256 

,103,205,153,30,96,105,205,347+s 


*PEEK 23733 THEN GG TO 250 

tart,223,254,234,40,5,205,57,30, 


270 RANDOMIZE start! CREAR star 

48,160,42,85,92,24,150,42 


t-1 : L.ET start-F'EEK 23670+256*PE 

160 DATA 83,92,205,321+start,20 


EK 23671 

5,184 „ 25,235,205,321 +st ar t. , 229,2 


280 POR a=0 TO 491; READ b; IF 

05,360+start,203,126,225,40,240, 


b >255 THEN RANDOMIZE b; F'DKE st 

229,213,235,17,0,0,205,136,25,35 . 


art+a,PEEK 23670; LET a=a+ls F'OK 

,205,136,25,62,254,146,209,225,2 


E- start+a,PEEK 23671; GD TO 300 

50,103 


290 POKE start+a,b 

170 DATA 254,19,19,213,84,93,35 


300 NEXT a 

,35,78,35,70,35,197,205,229,25„4 


310 P RIN T ' ' C a n c. e 1 1 a i d i q i t s 

3,54,58,193,225,94,35,86,235,9,2 


s "5 start: PRINT "Accorcia le. va 

35„114,43„115,43,43,24,186,126,2 


r i ab i 1 i;";star t +46; PRINT "Unise 

30,192,200,42,83,92 


i le linee : " ; start. +136 


^ P desideri 

w C veder pubblicato e... PREMIATO 
un programma che tu stesso hai elaborato 

INVIALO A LIST! 

(Se meritevole/ il tuo desiderio sarà esaudito) 
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Una rubrica di grafica 
per tutti i computers... 


Per esplorare insieme il vasto ed affascinante pianeta della grafica al 
computer, dapprima svelando segreti e regole basilari per piantare delle 
solide radici su questo mondo di pixel, quindi ci involeremo negli spazi 
più alti della creatività grafica, dove il risultato degli algoritmi sfiorerà i li¬ 
velli della computer-art. 

La rubrica sarà aperta a tutto il mercato dell’HOME disponibile (s’intende 
per tutti i computer che dispongono di pagina grafica), e non solo perché 
in ogni puntata verrà fornita la «Tavola delle istruzioni equivalenti» dedi¬ 
cate alla grafica, ma anche perché i listati che presenteremo conterranno 
sempre le sole istruzioni complementabili in tutti gli elaboratori salvo rare 
eccezioni, che comunque verranno anche esse vagliate fornendo ai lettori 
delle semplici routine di simulazione di una determinata istruzione. 

La struttura dei listati verterà su di un list-base sul quale ruoteranno tutte 
le varianti, questo significa che ogni variante modificherà e/o aggiungerà 
poche linee al listato di partenza ma in modo da modificarne anche radi¬ 
calmente l’espressione grafica. 

Proprio a partire dalla particolare struttura di questo inedito modo di com¬ 
porre il list e sfruttando le sue precipue caratteristiche, chiederemo ai let¬ 
tori di inviarci diverse varianti per ulteriori schermate grafiche, in questo 
modo la rubrica sarà realmente anche VOSTRA! 


L’esplosione grafica 




Tecniche di 

computergrafica 


È quella che ha colpito sia il settore degli HOME che dei PERSONAL COMPUTER, quella che ha 
generato le creazioni software CAD/CAM, quella che investe sempre più prepotentemente gli SPOT 
PUBBLICITARI, le VIDEO CLIP musicali (e, pare, abbia codificato i BAFFI del nostro Direttore 
Renzo Rubeo, resi così intricati da chissà quale astruso ALGORITMO!) Con un DIRECTOR così 
graficamente « flow-chartiano», LIST non poteva esimersi dal fornire ai lettori una esuberante 
rubrica di grafica, densa di idee, spunti, novità, implementabili su gran parte degli HOME 
disponibili sul mercato. L’implementabilità è garantita anche dalla TAVOLA DELLE ISTRUZIONI 
EQUIVALENTI, che vi consentirà di traslare i listatini originariamente scritti per i SISTEMI MSX. 
OK! Non rimane che cominciare questo affascinante viaggio nel mondo della grafica 

computerizzata. 



Avvertenze 


■ Le varianti grafiche 

Le varianti grafiche "lavorano” sul listato standard per 
creare nuove configurazioni di stampa, ma fate bene at¬ 
tenzione a ripristinare il list di partenza dopo aver provato 
ognuna delle varianti! Al contrario si creerebbe solo un 
enorme caos grafico sullo schermo. 


■ Il listato STANDARD 

Il listato, com’è, produce un DODECAGONO completo di 
raggi, ma potrete ottenere pentagoni, ottagoni, quadrati, 
triangoli, ecc., semplicemente modificando il valore della 
variabile NL (ora posta a 12 in riga 30). 

Da notare come un alto numero dei dati (impostati nella 
variabile NL) dia corso alla stampa di un CERCHIO. 

Con le variabili SV ed SO potrete creare anche uno 
schiacciamento della figura stampata, sia in senso verti¬ 
cale che orizzontale, ma questa ed altre commutazioni le 
andremo a scoprire nelle varianti al listato. 


TAVOLA DELLE ISTRUZIONI EQUIVALENTI 


Funzioni 

Sistemi 

MSX 

SIMON 

C64 

CMB 

128 

OLIVETTI 

PC 128 

SEGA 

SC 3000 

ATARI 

520 

SPECTRUM 

ZX 48 K 

Punti 

PSET 

PLOT 

DRAW 

PSET 

PSET 

LINEF 

PLOT 

Linee 

LINE 

LINE 

DRAW 

LINE 

LINE 

LINEF 

DRAW 

Riempie 

PAINT 

FILL 

PAINT 

PAINT 

PAINT 

PAINT 

OOOO 

Cerchi 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

CIRCLE 

Blocchi pieni 

LINEBF 

BLOCK 

BOX 

BOXF 

(PAINT) 

(FILL) 

OOOO 

Blocchi vuoti 

LINEB 

(LINE) 

BOX 

BOX 

(LINE) 

(LINEF) 

OOOO 


Legenda: (PAINT) = le istruzioni fra parentesi possono simulare con qualche variazione la funzione desiderata. 
— 0000 = istruzione non presente. 






















POLIGONI REGOLARI 


f ì 

Inizia 

uno dei più 

affascinanti 

viaggi 

nel mondo 

della 

grafica 

computerizzata 

tt 



LISTATO STANDARD 





CREAZIONI GRAFICHE 













































Nella riga 10 il BASIC-MSX dispone: con “SCREEN 2” lo 
schermo grafico ad alta risoluzione (191-255), con “CO¬ 
LOR 1,11,11” il disegno in NERO su sfondo e cornice 
GIALLA, CON “CLS” pulisce lo schermo. 



Modificate tale riga con le adeguate istruzioni proprie del 
vostro computer. Per gli “implementatori” c'è ancora da 
specificare che la “LINE” nel dialetto MSX ha questa sin¬ 
tassi: LINE (colonna di partenza, riga di partenza) — (co¬ 
lonna di arrivo, riga di arrivo). 

Si produrrà quindi un tratto dalle coordinate di partenza a 
quelle di arrivo. 


Poliaonì 


regolari 


? 

ili 


LISTATO 

BASE 

e 

VARIANTI 



di O Conienti 


T 


Tecniche di computergrafica 


1 
2 

3 

4 

5 

6 

7 

8 
10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
0 

110 

120 

) 

130 

140 

150 

) 

160 

170 

180 

190 

200 

210 

220 

230 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


Computergrafica 1 
Poligoni regolari 


di O. Contenti 


LISTATO BASE 


1 


SCREEN 2:COLOR 1,11,11:CLS 
F=0 

NL=12 :SV=60:SO=80 
DIM COCNL),RI(NL) 

A=2*3.1415927# 

FOR T=0 TO A STEP A/NL 
C=I NT(SV*COS(T)) +120 
R=I NT(SO*SI N (T))+90 
LINE <120,90)-(C,R) 

IF F=0 THEN CO(F)=C:RI<F)=R:GOTO 


13 


CO(F)=C: RI (F> =R 

LINE (COCF-l),RI(F-l)>-(CO(F) 


RI CF) 


F=F+1 
NEXT T 

LINE (COCF-l) 

GOTO 160 

REM - 

REM VARIANTI 

REM - 

REM - 

REM VARIANTE 

REM - 

! ELIMNARE LA 
REM In questo 


RI(F-1))-<CO<0),RI<0) 


RIGA 90 

modo si ottiene il 
poiigono. 


240 

lo perimetro del 

250 REM - 

260 REM VARIANTE B 

270 REM - 

280 ! 30 NL=12 :SV=80:SO=40 
290 REM II dodecagono viene 


so 


schiacciato 


orizzontalmente. 

300 REM - 

310 REM VARIANTE C 

320 REM - 

330 ! 30 NL=8:SV=40:SO=80 
340 REM Schiaccia un ottagono 


in senso 


verticale. 

350 REM - 

360 REM VARIANTE D 

370 REM - 

380 ! 30 NL=5:SV=70:SO=80 

390 ! 70 C=I NT <SV*COS(T+2))+120 

400 ! 80 R=I NT(SO*SIN(T+l))+90 






































LIST 


2 


LIST 


3 


410 REM Muta l’angolo 
i un pentagono. 

420 REM - 

430 REM VARIANTE E 
440 REM - 


di inclinazione d 


450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 


! 30 NL=24:SV=60:S0=60 
! 70 C=INT <SV*COS<T))+120+F*2 
REM Crea una girandola. 

REM - 

REM VARIANTE F 

REM - 

30 NL=24:SV=70 :S0=80 
70 C=INT<SV*COS(F>)+120 
80 R=INT<SO*SIN<F)>+90 
ELIMINARE LA RIGA 150 
REM Ruota una serie di triangoli 


at 


torno ad un centro. 

560 REM - 

570 REM SOTOVARI ANTE FI 

580 REM - 

590 REM Ferme restando le modifiche del 
la variante F,digitare: 

600 ! 80 R=INT<SO*SIN <F + 1))+90 

610 REM - 

620 REM VARIANTE G 

630 REM - 

640 ! 30 NL=32:SV=60 : SO=80 
650 ! 120 LINE <CO<F-1)*F,RI<F-1)*F)-<C 

O(F),RI(F)) 

660 REM Compone una stella i cui raggi 
si proiettano in un punto. 

670 REM - 

680 REM VARIANTE H 
690 REM - 


30 NL=26:SV=80: S0=70 
70 C=INT<SV*ATN<T))+60 
90 LINE <60,90)-CC,R) 

REM Nella riga 70 la sigla -ATN- 


700 
710 
720 
730 

a per ARCOTANGENTE. 

740 REM - 

REM VARIANTE I 

REM - 

! 30 NL=36:SV=80:S0=60 
! 90 LINE <120,90)-(C/2,R/2) 

REM - 

REM VARIANTE J 

REM - 

55 FOR X=120 TO 140 STEP 2 
70 C=I NT <SV*COS <T))+X 


st 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
in 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 


154 F=0 

155 NEXT X 

REM Compone una serie 
sequenza orizzontale. 

REM - 

REM VARIANTE K 

REM - 

30 NL=8:SV=30:SO=45 

55 FOR G=1 TO NL 

56 X=SIN<J)*50:Y=COS<J)*45 

57 J=J+.8 

70 C=I NT <SV*COS <T))+120-Y 
80 R=I NT <SO*SIN <T))+90-X 
ELIMINARE LA RIGA 90 

154 F=0 

155 NEXT G 


di dodecagoni 


990 REM Ruota degli ottagoni attorno ad 
una ideale circonferenza. 

1000 REM - 

1010 REM VARIANTI EVOLUTE 

1020 REM - 

1030 REM 

1040 REM -' 

1050 REM VARIANTE L 

1060 REM - 

1070 ! 30 NL=120:SV=80:S0=60 
1080 ! 60 FOR T=0 TO A STEP A/NL+F 
1090 ! 120 LINE <CO<F-1),RI<F-1))-<CO<F 

)+F,RI<F)) 

1100 REM - 

1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 


REM VARIANTE M 

REM - 

REM La voragine: 

! 30 NL=63:SV=80:SO=80 
! 50 A=3.1415927# 

! 70 C=I NT <SV*COS <T))+160 
! 90 LINE <160,90)-<C,R) 

! 120 LINE <CO <F-1),RI<F-1))-<CO <F 


)/F,RI<F)*F) 

1190 REM - 

REM VARIANTE 
REM - 


1200 

1210 

1220 

1230 

1240 

1250 


N 


REM Fuga: 

! 30 NL=128:SV=60:SO=80 
! 50 A=2*3.1415927# 

! 120 LINE < CO <F-l),RI<F-l))-< CO < F 

)/F,RI<F)) 

1260 REM - 

70 REM VARIANTE O 

80 REM - 

90 REM Proiezione: 

00 ! 30 NL=128:SV=80:SO=80 
10 ! 70 C=I NT <SV*COS <T)) +160 
20 ! 90 LINE <160,90)-<C-F,R) 

30 REM - 

40 REM VARIANTE P 

50 REM - 

60 REM Piano stellare: 

70 ! 30 NL=54:SV=80:SO=80 
80 ! 90 LINE <120-F,90+F)-<C,R) 

90 REM - 

00 REM VARIANTE Q 

10 REM - 

20 REM Fluttuazione: 

30 ! 30 NL=54:SV=80:SO=80 
40 ! 90 LINE <120+F,90-F)-<C,R) 

50 REM - 

60 REM VARIANTE R 
70 REM - 

80 REM Una variante complessa che ruo 
un contenitore ottagonale mediante u 
ti loop di variazione d’angolo. 


1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 


i 


30 NL=8:SV=30:SO=40 

55 FOR G=1 TO 65 

56 X=SIN<J)*50:Y=COS<J)*60 

57 J=J+.08 

70 C=I NT <SV*COS <T))+120+Y 
80 R=I NT <SO*SIN <T+J))+90 + X 
ELIMINARE LA RIGA 90 

154 F=0 

155 NEXT G 


IV 














































PROGRAMMA 




LIST 




Le 4 pagine video 


Ogni pagina richiamabile autonomamente da tastiera,, vi 
richiede nell’ordine: 

— alla pagina 1: 

una cifra DECIMALE non superire a 65535, fornendovi la 
conversione in: esadecimale; binario; binario BCD 8-4-2-1; 
binario BCD XS-3; ottale. 

— alla pagina 2: 

Una cifra ESADECIMALE non superiore ad FFFF, fornen¬ 
dovi: il decimale positivo se la cifra era maggiore di 7FFF; 
il decimale negativo di un esadecimale qualora questo sia 
di un solo byte (es. FF); il binario; lo ottale. 

— alla pagina 3: 

una cifra BINARIA non superiore a 1111111111111111, for¬ 
nendovi: resadecimale; il decimale; Cottale. 

— alla pagina 4: 

una cifra OTTALE non superiore a 177777, fornendovi: il 
decimale; resadecimale; il binario. 


STRUTTURA DEL PROGRAMMA 

20/30 

iniz. schermo titolo, DIM. vettore strin¬ 
ghe 

40/60 

stringhe di sistema 

70/80 

ciclo caricamento vettori 

100/120 

controllo tastiera 

150/390 

conversioni dal decimale 

420/640 

conversioni dall’esadecimale 

70/990 

conversioni dal binario 

1020/1230 

conversioni dal rottale 

1250/1330 

loop caricamento vettori 

1350/1360 

archivi stringhe per vettori 

1370/1520 

stampa titolo e REM per l’utente 

1530/1540 

fine programma 


10 REM Conversioni di sistemi numerici 
20 SCREEN 1:COLOR 15, 13, 13 :KEYOFF:CLS 
30 DIM BN$ ( 15 ) 

40 S=1:HES=" 0123456789ABCDEF" 

50 R$=”-O" : RE 

M [ —]=GRAPH+SEGNO MENO_MENTRE [0]=GRAPH 
+ZERO 

60 HS(1)="0":H$<2>=”00”:H$ (3>="000" 

70 GOSUB 1250 
80 GOTO 1370 

90 KS =INKEYS: IF K$=”" THEN GOTO 90 
100 IF K$=”#” THEN 1530 

110 IF ASC(KS> <49 XOR ASC(KS)>52 THEN G 
OTO 90 

120 ON ASC(KS)-48 GOTO 150,420,670,1020 
130 ! CONV. DAL DECIMALE 
140 ! ================== 

150 SCREEN 1:COLOR 15,4,4 

160 PRINT "Decimale (non oltre 65535) ” 

170 PRINT:INPUT D 

180 IF SGN(D>=-1 THEN PRINT:PRINT ”NON 
ACCETTO NUMERI NEGATIVI”: GOTO 210 
190 IF D<65536! THEN GOTO 220 
200 PRINT:PRINT "CIFRA TROPPO ELEVATA” 
210 FOR T=1 TO 1000:NEXT T:GOTO 150 
220 D=I NT(D> 

230 PRINT RS:PRINT ”| Esadecimale: ” ; HE 
XS (D) 

240 PRINT RS:PRI NT ”♦ Binario: ”;BIN$<D 

> 

250 DS=STRS(D) 

260 FOR T=2 TO LEN(DS) 

270 F=VAL(MIDS(DS,T,1)> 

280 B1$ = B1$ + BN$ <F> 

290 NEXT T 

300 PRINT R$:PRINT ”♦ Binario BCD 8-4-2 
-1:”:PRINT ”♦ ”; BIS 
310 B1S=”" 

320 FOR T=2 TO LEN(DS > 

330 G=VAL(MIDS(DS,T,1>> 

340 B2$=B2S+BXS(G> 

350 NEXT T 

360 PRINT RS:PRINT ”♦ Binario BCD XS-3: 
”:PRINT ”♦ ”;B2S 
370 B2$=”” 

380 PRINT RS:PRINT "I Ottale: ”;OCTS(D> 
390 GOTO 1430 

400 ! CONV. DALL’ESADECIMALE 
410 ! ====================== 

420 SCREEN 1 : COLOR 1,11,11 

430 PRINT "Esadecimale (non oltre FFFF) 

fi 

440 PRINT:INPUT ES 
450 FOR T=1 TO LEN(ES) 

460 X=ASC(MIDS(ES,T,1)) 

470 IF (X<48 XOR X>70> OR (X>57 AND X<6 
5) THEN 520 
480 NEXT T 

490 IF LEN (ES ■> >4 THEN 510 
500 GOTO 540 

510 PRINT:PRINT "CIFRA TROPPO ELEVATA": 
GOTO 530 

520 PRINT:PRINT "QUESTA NON NON E' UNA 
CI FRA":PRI NT "ESADECI MALE !" 

530 FOR T=1 TO 1000:NEXT T:GOTO 420 
540 D=VAL("&H"+ES) 

550 PRINT RS:PRINT " Decimale: ";D 
560 IF SGN (D) 0-1 THEN 590 
570 Dl=65536!-ABS(D) 


LIST 8-9/87 


43 















CONVERSIONI DI SISTEMI NUMERICI 


LIST 2 


580 PRINT RS:PRINT " tt Decimale positivo 
: " ; DI 

590 IF LEN(ES) >2 THEN 620 
600 DN=VAL("&H"+ES)-256 

610 PRINT R$:PRINT "tt Decimale negativo 
: ” ; DN 

620 PRINT R$:PRINT ”♦ Binario: ”;BIN$(D 

) 

630 PRINT RS:PRINT "X Ottale: ”;OCTS(D) 
640 GOTO 1430 
650 ! CONV. DAL BINARIO 
660 ! ================= 

670 SCREEN 1 : COLOR 4,14,14 
680 PRINT "Binario” 

690 PRINT "(non oltre 1111111111111111) 

tt 

700 PRINT:INPUT B3S 
710 FOR T=1 TO LEN(B3S) 

720 X=ASC(MI DS(B3S,T,1)) 

730 IF X<48 OR X>49 THEN 760 
740 NEXT T 

750 IF LEN(B3S)>16 THEN 770 ELSE 790 
760 PRINT:PRINT "NON POSSO ACCETTARLA": 
GOTO 780 

770 PRINT:PRINT "CIFRA TROPPO ELEVATA" 
780 FOR T=1 TO 1000:NEXT T:GOTO 670 
790 IF LEN(B3S)/4=INT(LEN(B3S)/4) THEN 
BBS = B3S: GOTO 850 
800 FOR T=1 TO 3 

810 IF LEN(HS(T)+B3S >/4=I NT(LEN(H$(T) + B 

3S)/4) THEN 840 

820 NEXT T 

830 T=T-1 

840 BBS=HS(T)+B3S 

850 E$="” 

860 FOR G=1 TO LEN(BBS)-3 STEP 4 
870 VS=MIDS(BBS,G,G+3) 

880 FOR L=0 TO 15 

890 IF VS=BNS(L) THEN 920 

900 NEXT L 

910 L=L-1 

920 ES=ES+MIDS(HES,L+l,1) 

930 NEXT G 

940 PRINT RS:PRINT "1 Esadeciraale : ";ES 
950 D=VAL("&H"+ES) 

960 IF SGN(D)=-l THEN D=65536!-ABS(D) 
970 PRINT RS:PRINT "tt Decimale: ";D 
980 PRINT RS:PRINT "X Ottale: ";OCTS(D) 
990 GOTO 1430 
1000 ! CONV. DALL'OTTALE 
1010 ! ================= 

1020 SCREEN 1: COLOR 15,6,6 

1030 PRINT "Ottale (non oltre 177777)" 

1040 PRINT:INPUT OTS 

1050 FOR T=1 TO LEN(OTS) 

1060 J=ASC(MIDS(OTS,T,1)) 

1070 IF J<48 OR J>55 THEN 1110 
1080 NEXT T 

1090 IF LEN(OTS)>6 THEN 1120 
1100 IF LEN(OTS)=6 AND ASC(OTS)>49 THEN 
1120 ELSE 1140 

1110 PRINT:PRINT "NON POSSO ACCETTARLA" 

: GOTO 1130 

1120 PRINT:PRINT "CIFRA TROPPO ELEVATA" 
1130 FOR T=1 TO 1000:NEXT T:GOTO 1020 
1140 D=0:C=LEN(OTS)-1 
1150 FOR T=1 TO LEN(OTS) 

1160 V=VAL(MID$(OTS,T,1)) 

1170 D=D+(8~C)*V 
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1180 C=C-1 
1190 NEXT T 

1200 PRINT RS:PRINT "tt Decimale: ";D - - 
1210 PRINT RS:PRINT "♦ Binaria: ”;BINS( 
D) 

1220 PRINT RS:PRINT "1 Esadecimale: ";H 
EXS(D) 

1230 GOTO 1430 

1240 REM CARICAMENTO STRINGHE PER BINA 

RIO BCD 8-4-2-1 E BIN-ESA 

1250 FOR T=0 TO 15 

1260 READ BS 

1270 BNS(T)=BS 

1280 NEXT T 

1290 REM CARICAMENTO STRINGHE BCD XS-3 

1300 FOR T=0 TO 9 

1310 READ XS 

1320 BXS(T)=XS 

1330 NEXT T 

1340 RETURN 

1350 DATA 0000,0001,0010,0011,0100,0101 
, 0110 , 0111 , 1000 , 1001 , 1010 , 1011 , 1100,110 
1,1110,1111 

1360 DATA 0011,0100,0101,0110,0111,1000 
,1001,1010,1011,1100 
1370 LOCATE 0,6 

1380 PRINT" i-1” 

1390 PRINT"| Conversioni di | ■ ■ ■ ■' 

1400 PRINT"|sistemi numerici| ■ ■ ■ ' 

1410 PRINT"'-»" 

1420 PRINT "tt di O. Contenti tt LIST 87 

tt" 

1430 PRINT RS: PRINT " s= Premi il tasto 
:": REM [=]=GRAPH+SHIFT+= 

1440 REM [ r ]=GRAPH+R; C M=GRAPH+W; [ | ]=GR 
APH+SHIFT+\; [ J ]=GRAPH+N;C t ]=GRAPH+Y; [ L ] 
=GRAPH+V 

1450 PRINT " r> 1 per dare il decimale” 
1460 PRINT " ri 2 per dare 1'esadecimale" 
1470 PRINT "r>3 per dare il binario" 
1480 PRINT "rM per dare 1'ottale” 

1490 IF S=1 THEN S=2:GOTO 1510 
1500 PRINT "r¥# per fine programma" 

1510 PRINT "O- 

1520 LOCATE 0,0:GOTO 90 
1530 SCREEN 1 : COLOR 15,1,1 
1540 END 


PRINCIPALI VARIABILI 


D 

= 

decimale 

DI 

= 

decimale positivo 

DN 

= 

decimale negativo 

ES 

= 

esadecimale 

BIS 

= 

binario BCD 8-4-2-1 

B2$ 

= 

binario BCD XS-3 

B3$ 

= 

binario (stretto) 

OTS 

= 

ottale 
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PROGRAMMA 


MSX 


di Osvaldo Contenti 



D ’etimo di questa parola discende dal greco, che 
ci restituisce intatta l’antica poesia di questo og¬ 
getto ludico, in quanto: kalós = bello; èidos = fi¬ 
gura e scope = scopio, osservazione. 

Potremmo tradurre quindi: «osservazione di belle immagi¬ 
ni», ed è proprio quello che accadrà una volta digitato il 
programma. 

Avrete a disposizione 8 diversi caleidoscopi, ognuno dei 
quali avrà caratteristiche sempre diverse grazie alla fun¬ 
zione RND e un tempo di ciclo infinito. 

La tecnica utilizzata nel programma, ovviamente non fa 
uso di specchietti disposti ad angolo acuto, ma della ri¬ 
flessione di un dato punto o immagine che si ripete sim¬ 
metricamente nello schermo idealmente diviso in 4 sezio¬ 
ni o rettangoli. 

In pratica l’operazione viene effettuata in questo modo: 
A) Stabilire le coordinate casuali del primo punto con: 

X = RND (-TIME) 

C = INT (L 27xRND (1)+1) 

R = INT (95xRND (1) + 1) 

Dove X è la variabile fittizia di TIME per ottenere numeri 
davvero causali; C è uguale alla colonna di stampa ed R 
la riga. 

B) Per ottenere le coordinate simmetriche procedere con 
due operazioni: 

CI = 255-C 
RI = 191-R 

Per cui i quattro punti si disporranno in: 

PSET (C,R) PSET (CI.R) 

PSET (C,RI) PSET (CI,RI. 

Com’è chiaro, i quattro punti possono stabilire le coordi¬ 
nate base di qualsiasi figurazione geometrica ed è utile ri¬ 
cordare che tale impostazione viene ricorrentemente usa¬ 
ta come funzione MIRROR (immagine speculare) allo in¬ 
terno di molte tavolette grafiche, per cui potrete utilizzarla 
adoperando il joystick con funzione di «lapis», onde imba¬ 
stire configurazioni a specchio di grande suggestione. 

Il menu del programma 

Come abbiamo detto propone otto varianti caleidoscopi¬ 
che, fra le quali si distinguono quelle ad andamento clas¬ 
sico (come la variante 2) o precipuamente da elaboratore 
(come la variante 1), infine, con la variante ottava (l’ulti¬ 
ma) avrete modo di osservare le evoluzioni grafiche di 
quello che definirei un «tessitore computerizzato», infatti 
oltre alla solita complementarietà speculare, questa parte 
del programma esegue tratti completamente randomizzati 
nelle otto direzioni tipiche dello stick, fornendo delle im¬ 


magini che sembrano ricostruire dei ricchi e fantasiosi 
tappeti persiani. 

Vi assicuro che veder lavorare il nostro MSX in tal guisa, 
produce una grande soddisfazione che non vi fa abbando¬ 
nare la schermata se non dopo diversi minuti. 

Ultima, ma non per questo meno importante caratteristica 
del programma, è la grande velocità di esecuzione di tutte 
le varianti KALEYDO che rendono una ottima godibilità vi¬ 
siva che, può divenire il punto di attrattiva di una festa fra 
amici, dove il video assume l’innovativa caratteristica di 
un «quadro mutevole» proposto da un elaboratore pittore 
completamente a vostra disposizione. 

La Tastiera 

Semplicissima e pratica, comprende i tasti: 1,2,3,4,5,6,7,8, 
ognuno dei quali vi propone un KALEYDO diverso dagli al¬ 
tri, questi testi possono essere premuti nel corso di qual¬ 
siasi schermata proponendovi in un secondo quella nuo¬ 
vamente scelta. 

La velocità dei passaggi tra una schermata e l’altra ha 
una sola eccezione, cioè nell’ottavo KALEYDO, dove do¬ 
vrete aspettare qualche istante in più per far si che il 
computer stampi i 30 punti RND prima di passare al ri¬ 
chiamo da tastiera. 

Inoltre, dopo il titolo e il suo tempo di visualizzazione sul¬ 
lo schermo, il programma passerà sempre alle immagini 
del primo KALEYDO che voi potrete interrompere con la 
digita dei tasti sopra elencati. 
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LIST 


2 


LIST 


3 


130 PRINTTAB(2);"_ 

II 

140 PRINTTAB(2) ; "V ; SPC(22) ; "/»’ 

150 PRINTTAB<3) ; ” \Tast i1•2•3•4•5*6•7•8/ 

II 

160 PRINTTAB (4) ; ”\ M ; SPC(18) ; " 

170 PR I NTTAB <5 > ; --- 

180 FOR T=1 TO 5000:NEXT T:SCREEN 3 
190 REM TASTIERA 

200 K$ =INKEYS:IF KS="" THEN GOTO 290 


210 

A 

IF 

K$="1” 

THEN 

A=l:SCREEN 

3:GOTO 

29 

V 

220 

A 

IF 

K$="2" 

THEN 

A=2:SCREEN' 

3:GOTO 

29 

u 

230 

0 

240 

A 

IF 

K$=”3” 

THEN 

A=3:SCREEN 

2:GOTO 

29 

IF 

K$="4" 

THEN 

A=4:SCREEN 

3 : GOTO 

29 

V 

250 

A 

IF 

K$=”5” 

THEN 

A=5:SCREEN 

2:GOTO 

29 

U 

260 

A 

IF 

K$=”6” 

THEN 

A=6:SCREEN 

3 : GOTO 

29 

\/ 

270 

A 

IF 

K$=”7” 

THEN 

A=7:SCREEN 

2: GOTO 

29 

280 IF 
0 ELSE 

K$=”8” 
200 

THEN 

A=8:SCREEN 

2 : GOTO 

29 


290 X=RND<-TIME) 

300 R=I NT <RND(1)*95+1) 

310 C=I NT(RND(1)*127+1) 

320 T=TNT(RND(1)*14+1) 

330 ON A GOTO 370,500,630,760,870,930,1 
010,1140 

340 REM - 

350 REM KALEYDO 1 

360 REM - 

370 CIRCLE (C,R),T,T 

380 PAINT <C,R),T 

390 CIRCLE (255-C,R),T,T 

400 PAINT (255-C,R),T 

410 CIRCLE (C,191-R),T,T 

420 PAINT <C,191-R),T 

430 CIRCLE (255-C,191-R),T,T 

440 PAINT (255-C,191-R),T 

450 LINE (C,R)-(255-C,191-R),T,BF 

460 GOTO 200 

470 REM - 

480 REM KALEYDO 2 

490 REM - 

500 CIRCLE (C, R) , T+5, T 

510 PAINT (C,R),T 

520 CIRCLE (255-C,R),T+5,T 

530 PAINT (255-C,R),T 

540 CIRCLE (C,191-R),T+5,T 

550 PAINT (C,191-R),T 

560 CIRCLE (255-C,191-R),T+5,T 

570 PAINT (255-C,191-R),T 

580 LINE (C,R)-(255-C,191-R),1,B 

590 GOTO 200 

600 REM - 

610 REM KALEYDO 3 

620 REM - 

630 CIRCLE (C,R),T,T 

640 PAINT (C,R>,1 

650 CIRCLE (255-C,R),T,T 

660 PAINT (255-C,R),1 

670 CIRCLE (C,191-R),T,T 

680 PAINT (C,191-R),1 

690 CIRCLE (255-C,191-R),T,T 

700 PAINT (255-C,191-R),1 

710 LINE (C,R)-(255-C,191-R),T,B 


720 GOTO 200 

730 REM - 

740 REM KALEYDO 4 

750 REM - 

760 P=I NT(RND(1)*100+10) 

770 CIRCLE (C,R),P-10,T 

780 CIRCLE (255-C,R),P-10,T 

790 CIRCLE (C,191-R),P-10,T 

800 CIRCLE (255-C,191-R),P-10,T 

810 CIRCLE (127,96) , P,T 

820 LINE (C,R)-(255-C,191-R),T,BF 

830 GOTO 200 

840 REM - 

850 REM KALEYDO 5 

860 REM - 

870 LINE (C,R)-(255-C,191-R),T 
880 LINE (255-C.R)-(C,191-R),T 
890 GOTO 200 

900 REM - 

910 REM KALEYDO 6 
920 REM - 

930 LINE (C,R)-(255-C,191-R),T, BF 
940 LINE (C,R)-(255-C,191-R),1,B 
950 LINE (255-C,R)-(C,191-R),1 
960 LINE (C,R)-(255-C,191-R),1 
970 GOTO 200 

980 REM - 

990 REM KALEYDO 7 

1000 REM - 

1010 CIRCLE (C,R),T,T 
1020 CIRCLE (255-C,R),T,T 
1030 CIRCLE (C,191-R),T,T 
1040 CIRCLE (255-C,191-R),T,T 
1050 LINE (C,R)-(255-C,191-R),1,B 
1060 GOTO 200 

1070 REM - 

1080 REM KALEYDO 8 

1090 REM - 

1100 X=RND(-TIME) 

1110 R=INT(RND(1>*95+1) 

1120 C=INT(RND(1)*127+1) 

1130 T=I NT(RND(1> *14+2) 

1140 FOR Y=1 TO 30 
1150 H=INT(RND(5)*8+l) 

1160 ON H GOTO 1170,1180,1190,1200,1210 

, 1220, 1230, 1240 

1170 R=R-1: GOTO 1250 

1180 R=R-1:C=C+1:GOTO 1250 

1190 C=C+1: GOTO 1250 

1200 C=C+1:R=R+1:GOTO 1250 

1210 R=R+1: GOTO 1250 

1220 R=R+1:C=C-1:GOTO 1250 

1230 C=C-1: GOTO 1250 

1240 G=C-1:R=R-1 

1250 PSET (C,R),T 

1260 PSET (255-C,R),T 

1270 PSET (C,191-R),T 

1280 PSET (255-C,191-R),T 

1290 NEXT Y 

1300 GOTO 200 


Variabili Principali 

X = variabile fittizia per inizializzare RND legata a TIME 
R = riga causale di stampa 
C = colonna casuale di stampa 
T = colore casuale dell’Immagine 

A = numero corrispondente alla pagina KALEYDO scelta 
P = raggio RND 
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PROGRAMMA 


C128 


di Alessandro Ceracchi 



Eit 


FTTROrilLH 






ira sul Commodore 128 ad 80 colonne, e può sup¬ 
portare come memorie di massa sia il Floppy Disk 
che la Cassetta a nastro magnetico. 

Permette un accesso istantaneo ai nomi, indirizzi e rispet¬ 
tivi numeri telefonici. Offre inoltre alcune caratteristiche 
speciali, come la ricerca automatica di un nome nell’ar¬ 
chivio e l’ordinamento alfabetico dei rispettivi. Aggiungere 
dei record al file o «editare» il record stesso è molto sem¬ 
plice, dal momento che il programma accetta i comandi 
attraverso un menù subito descritto: 



OPZIONE 4 
OPZIONE 5 
OPZIONE 6 
OPZIONE 7 


singolo record. 

Visualizzazione di tutti o di un singolo 
record. 

Per registrare i nuovi o corretti record 
nel file. 

Si accede ad un sottomenù che gesti¬ 
sce tutte le operazioni DOS. 

Termina l’elaborazione, previa confer¬ 
ma dell’utente. 


OPZIONE 1 : Si caricano in memoria i record. 
OPZIONE 2 : Opzione usata per immettere o aggiun¬ 
gere dei record. 

OPZIONE 3 : Correzione o totale cancellazione di un 


Il programma è stato scritto in modo tale da permettere 
l’archiviazione di 500 record. Per aumentarne il numero, 
basta intervenire sulla variabile L ed incrementarla, va¬ 
riandone cioè il valore. 


LIST 1 


LIST 2 

10 REM ********************************* 


130 PRINTTAE< 19)♦SIC 6 ]■ > COMANDI DOSM 

********* 


* 

12 REM ‘ fi 6 E N D fi - 1 2 8 


135 FRINTTfiB< 19) ''Zìi 7 ]■ > FINE LAVORO♦ 

14 REM DI ALESSANDRO CERACCHI COI 


140 PRINTTfiB <17)■GOSUB1460 

987 


150 FRINTTfiB<19) , : INPUT "Zi SCELTA": 

16 REM ********************************* 


E 

********* 


160 ONBGOSUE600 .• 170, 230 .• 360 .• 600 .• 840 .• 1500 

20 FAST ; L=500 Q$-CHR$<13) 


:GOTO50 

30 DIMMT<L,6>,NT<6>-FORI“1T06 : READHT<I>: 


170 N=N+1 ; PR I NT *32RECQRD! N“ "tt ■ FOR-J= 1TO 

NEXT 


6 : PR I NTGT " NT < J ) j " INPUTMT < N, J ) 

40 DATACOGNOME,NOME,VIfi,CITTfi',CAP,TELEF 


180 NEXTJ PRINT'MMa SBUCCESSIVO / H CflfiN 

0N0 


CELLA / 3 F"INE * 

CO F'R I NT 'Tim* F'R I NTTfiB < 25 > FOR I = 1T024 p 


1 90 GETAT I FfìT= ♦♦OR < ATO *S ANDATO "C "fìtti* 



ATO "F ") THEN190 

RINT'-T, : NEXT : PRI NT 


200 IFfiT" "S "THEN170 

60 PR INTTfiB C 25 ); ; PRINT "IH D fi T fi - E fi 


210 IFAT~ y 'F"THEN50 

S E 128 •m" 


220 N=N-1 : GOTO170 

70 PRINTTAE < 17) GOSUB1460 


230 GOSUB1545 ; FORI- 1T0N : IFBT-MT U ,1 ) THEN 

80 PRINTTAE<19)‘naC 1 ]■ > CARICA FILEM 


250 

// 


240 NEXTI PRINT*nM"E$ # MMNGN MEMORIZZATO 

90 F'R INTT fi E < 19) "HZ 2 ]■ > AGGI UNTA / IN 


' # : SLEEP2 : COSUB790 : GOTO60 

IZIO FILEM" 


250 GOSUB1820 : PRINT *M> COSA MODIFICHI M' 

100 F'R I NTT AB ( 19 ) "Zìi 3 J" > ED IT FILEM" 


: F0RJ= 1T06 : PR I NT +tl"J "ttt- < J > : NEXT 

110 FRI NTTfiB ( 19) "Hi 4 ]■ > VISUALIZZA F 


260 FRI NT ♦SHr > CANCELLAMI : INPUT S 

ILE?}" 


C E L T fi » J I F.T< 1 ORJ>7THEN260 

120 PR I NTTfiB < 19) "31 5 ]■ > SfiVE FI LEM 4 ’ 


270 IFJ=7THEN310 
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LIST 3 


280 pr i nt (. i, i > ", "mt < i, 2 > 

290 PR I NT'Marfv'ECCH 10 "NT < J> "" E 1" PR IHTM 
$ ( I, .J > QTQT "a SCORRETTO "NT ■:! J > " E " 

300 INPUT NT 1 " I, J > : G0SUB79Q ' GOTO320 

310 FQRA= ITON-1 : FOR J= 1T06 : NT < A.. -J ) “NT < R+1 

,J > ; NEXT J,A ; N"N-1 

320 PRINTnc VUOI : "QT GOSUE1480 

330 PRINTnnaC 1 J* > CONTINUARE EIDT" 

:PRINT"*WiaC 2 ]■ > RITORNARE RL MENU" " 

340 GOSUB1480 

350 INPUT"Ma S CELTA B 0NEG0T023 
0 ji 50 : GOTO350 

360 FRINT'nel QUALE VUOI ?" GOSUE1480 


370 PRINT*n3MIC 1-3" > ALFABETICA.*!?" PRI 
NT # >ÌiaC 2 ]■ > INDIVIDUALE»" 

380 PRINT"ttia[ 3 ]■ > MENU"" 

390 GOSIJB1480 

400 INPUT*M» S C E L T R “ B : QNBG0T041 
U, 560.' 30 GGTO380 

419 G=N IFN-GTHENPRINT^Miia R R C H I V 
I 0 V U 0 T 0 1 ■"" SLEEP3 : 6QT0SQ 

420 G"INT<0/2> 

430 IFG-0THEN530 
440 F0RA=1TON-C 

430 IFMT (. R.. 1 > <"MT<R+G, 1 • THEN50O 

460 RT-MT<A,1> ST"MT< R,2>•TT"MT< R,3 > : UT - 

MT<R, 4 > : VT=MT •: A, 5 > NT-MT < R, 6> 

470 FOR T" 1T06 : MT R, J > =MT < R+G, .J > : NEXT 

480 MT <R+G,1>=RT MT <R+G,2 >"ST MT<R+G,3> = 

TT MT<R+G,4 > =UT:MT <fì+G,5 >"VT 

490 MT<R+G,6>"NT :E"R 

500 NEXTfl 

310 IFE=0THEN420 

520 E=0 GOT0430 

530 PEINT"^" L=0 FORICI TON L=L+1 PRINTMT 
< 1, 1 > ", "MT < 1,2 > ; IFLO2QTHEN550 
540 L=0 • GOSUE790 : PR I NT "31" 

550 NEXTI GOSUE790 G0T0360 
560 G0SUB836 
570 NEXTI 

580 PRINT"ZMM"? ET ; PRINT*M*9N0N MEMORIZZRT 

0 !GOSUB790 : GOTO360 

590 GOSUE820 GOSUB790 G0T0360 

600 PRINT'O" GOSUE 1480 

610 PRINTOWa DII SCO 0 Zi GRASSETTA 

a dp / a ci" 

620 GOSUE1480 

630 GETET : IF < ETO "D "RNDETO *C 4 > ORE'T" " "TH 
EN630 

640 IFET="D"THENFT""00 : INDIRIZZI F-l•GO 
TO660 

650 FT="INEIRIZZI *■ F=Q GT= "" 

660 IFB=5THEN710 

670 I FF= 1THENGT" ", S, R " 

680 OPEN1,1+7*F,3#F,FT+CT:GOSUB750 

690 INPIJT# 1 . N FOR I = 1 TON FOR J-1T06 

700 I NF'UTtt 1, MT •: I, J < NEXT NEX r COSUE750 G 

L0SE1 G0SUE750 ; GOTO50 

710 IFF-1 THENGT" ", S, N "" 

720 OPEN1,1+7#F,1+7#F,FT+GT GOSUE750 

730 PRINT#1,N•FORI-1TON: FORT"1T06 

740 PRINT#1,MT(I, J >:NEXT : NENT :GOSUE750 C 

L0SE1 : GOSUE750 ■' SLEEP1 GOTO50 

750 IFF"0 T HENRE TURN 

760 IFO=0THENOPEN15,8,13 0=1 

770 I NPIJT# 13, R, ET, G, D : IFATHENPRINTR, ET . G 

, D GOSIJB 1450 • SLEEP1 • G0T050 

780 RETURN 

790 PRINT "««a UN TASTO PER CONTINUARE 


LIST 


800 
810 
830 
840 
850 
860 
870 
880 
CO 
890 
900 
910 
TTG 
920 

È 


GETKEVRT 
FRINT"□♦•RETURN 
GOSUE1600 : GOTO360 
FRI NT "□""GOSUE 1430 
DCLEflR 

PRINT"T>»ia C 0 M R N D I - D 0 S ■ "" 
GOSUE1480 

PRINT"WiaC 1 ]■ > FORMATTAZIONE BIS 

PRINT"f»iai 2 ]■ > CAMBIO NOME FILE 

PRINT".P>*ia[ 3 ]■ > DIRECTORV 

PRI NT "f>*iaL 4 ]■ > COMANDO DOS DIRE 

0 PRI NT "WHat 5 ]• > • ELIMINAZIONE FIL 


* 


930 

940 

950 

960 

970 


]* 


RITORNO RL MENU"" 


PRINT^flWiai 6 

GETKEVRT 
IFRT""6"THEN50 
IFRT""1"THENEEGIN 
PRI NT ♦a - " GOSIJB 1480 

980 PRI NT "TMMa FORMATTAZIONE DISCO ■ "" 
990 GOSUE1430 

1000 PRI NT ^PiflOME INPUTNDT 

=0ORLEN<NDT> >16THEN970 
1010 PRINT""r*HID "" INPUTIDT 
> =0ORLEN<IDT > >6THEN970 
1020 PRI NT "f>HJK‘‘ CS/NJ" GETKEVRT 

I FPT= +S "THENHEADER <NDT> + ", ""+ < I DT > 

IFPT" "N "'"THEN840 

PRI NT* WWW FORMATTAZIONE IN CORSO. 


IFLEN<NDT> 
IFLENCIDT 


1040 
1042 

1045 

// 

1050 

<< 

1060 
1070 
1080 
1 090 
1100 
1110 


PRINT*»MI 


FINE FORMATTAZIONE. 


SLEEP2:GOSUE1450 
PRINT *□♦ 

BENE 

IFRT= "2 ""THENEEGIN 
PR I NT ""□"" GOSUE 1480 
PRINTniiia CAMBIO NOME FILE ■ 


1120 GOSUE1480 

1130 PRINT'/Wv'ECCHIO NOME ; ", : INPIJTVNT 
1140 PRINT^:p>*HIJOVO NOME ", : INPUTNNT 
1150 I FLEN< VNT > =0ORLEN < NNT > =OORLEN<VNT- > > 
160RLEN<NNT> >16THEN1100 
1160 RENANE <VNT>TO < NNT >:GOSUE1450 
1170 PRINT"□" 

1180 BENE 

1190 IFRT="3"THENBEGIN 

1200 PRINT * □*:GOSUE1480 

1210 PRINT^Mia DIRECTORV DO US ■ ♦ 

1220 GOSUE1430 

1230 CATRLOG : PRINT*WS PREMI UN TASTO 
GETKEVRT 

1240 PRINT".!"" GOSUE 1450 
1250 EEND 

1260 IFRT-"4*THENBEGIN 

1270 PRINT*□* GOSUE1430 

1280 PRINT*T*ia COMANDO DOS DIRETTO ■ W* 

1290 FRI NT "T"; ■ INPUTCOT 

1300 OPEN15,8,15,COT 

1310 GLOSE15 

1320 GOSUE1450 

1330 PRINT* □" 

1340 BENE 

1350 IFRT=*5 "THENBEGIN 
1360 PR I NT* □"" ^ GOSUE < 480 
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AGENDA ELETTRONICA 


5 


LIST 


6 


LIST 


1370 PRINT".-**ia ELIMINAZIONE FILE »" 
1380 GOSUB1480 

1390 FRI NT* «HOME ", INPUTNST IFLENCNST) 
=0ORLEN<NST> >16THEN1360 
1400 PRI NT 4 'MMNDK? C S/N 3" : GETKEVPT 
1410 IFPT-*8*THENSCRATCHCNST>:GOSUB14SO 
1420 PRIMI"D" 

1430 BEND 
1440 GOTO840 

1450 SOUND1,16000,IO SOUND2,10O00,IO RET 
URN 

1460 PRINTTAB( 17> FORI-1T041 : PRINT 4 ' " N 
EXT : FRINT"M* 

1470 RETURN 

1480 FORI = 1T041 ■ PR INT 4 ' =* NERI PR INT 4 ' N" 
1430 RETURN 

1500 PR I NT 4 ' mS F I N E L A V 0 R 0 »" 

1510 PR I NT" «SE I SI CUPO C S/N 3 * 

1520 GETKEVAT 
1530 IFAT-*S"THENSVS65341 
1540 RETURN 

1545 PRINT*FEC0RD DA' MODIFICARE 4 '!^" 

Zi C COGNOME 3 ■*'INPUT*W*; BT : RETURN 


1600 PR I NT" m> SCELTA PER CAMPO " FRI NT" 
3C ■0GN0MEW" ; PRINT 4 'li»r «UMEA" 

1 6 1 o' pp i nt 4 '«wl :rr ■elffono m* ■ pr i NT" m :i 

R liTORNO AL MENU * 

1620 PR I NT" fWtì C A M P 0 ■ zi C ■ / Zi N 
■ / a T ■ / Zi R ■* 

1630 GETKEVST : IFST=""0R< STO* C 'ANDSTO*N 


♦ANDSTO* T* ANDSTO* R* >THEN 1600 
1640 IFST=*C*THEN1680 
1650 IFST=*N* THEN1730 
1660 IFST=*T*THEH1730 
1670 IFST=* R*THEN360 

1680 GOSUB 1720 ■' FOR I “ 1TON : I FCT=MT( 1, 1 > THE 
NI 710 
1690 MENTI 

1700 PR I NT* Ct ■ PR I NT* MH40N MEMORIZZAT 

0 ! * : GOSUB1840 ; GOTO1600 

1710 GOSUB1820 : GOSUB1840 : GOTO1600 

j 720 INPUT* P1C UGNO ME*, CT : RETURN 

1730 GOSUB1770 FORI-1TON: IFNT=MT(1,2> THE 

NI 760 

1740 MENTI 

1750 PR I NT* ZM* ; NT : PR I NT* POTJON MEMOR IZZAT 
0 « * :GOSUB1840 : GOTO1600 
1760 GOSUB 1820 •' GOSUB 1840 GOTO 1609 


1770 INF'UT "PNOME* ; NT : RETURN 
1780 GOSUB1830 :FORI-1TON: IFTT=MT<1,6 >THE 
NI 810 
1790 MENTI 

1800 PRI NT* ZW* , TT • PR I NT"MJSNON MEMORI ZZAT 
0 !"•GOSUB1840: GOTO1600 
181O GOSUB1820 : GOSUB1840 GOTO1600 
1820 PR I NT* 7J*MT 0,1 > ", * MT< 1,2 > QTMT < 1,3 > 
QTMTC1,4>0TMT<1,5>0TMTC1,6): RETURN 
1830 • INPUT*PTTELEFONO*. TT : RETURN 
1840 PRINT*PIMS PREMI UN TASTO 6ETKEVT 
T ^ RETURN 


SILICON MOVIOLA. 
COMMODORE 64 



Per averlo subito, 
inviare L. 35.000 
spese postali incluse 
a 1/2 vaglia postale 

a ELETTRONICA 
RUBEO 

P.zza Bellini, 2 
Grottaferrata 
00046 (Roma) 


La cartuccia MOVIOLA è dotata di: 

1 Interruttore di accensione della cartuccia 

2 Spia luminosa di acceso-spento 

3 Pulsante di RESET 

4 Commutatore per fermare 1'imma^ine 


( Posizione di STOP) 

5 Manopola per aumentare o diminuire la 
velocità dei movimenti 

6 Connettore per bus-espansione del 
computer 


Il tasto di RESET è attivo anche se 
la cartuccia MOVIOLA è spenta. 

Durante il caricamento dei programmi si consiglia 
di tenere spenta la cartuccia MOVIOLA onde evitare 
disturbi al programma in caricamento. 
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PROGRAMMA 


C64 


di Gian Piero Rosi 



on c’è dubbio: l’incubo che tormenta chi si accin¬ 
ge alla realizzazione di programmi che utilizzano 
gli sprites, è la digitazione di una gran quantità di 
linee zeppe di data. Ma ecco che l’incubo scompare, co¬ 
me per magia, grazie alla nostra utility. 

AUTOSPRITE si distingue da programmi dello stesso ge¬ 
nere per il fatto che non solo fornisce i valori dei data cor¬ 
rispondenti al disegno eseguito dall’utente sul video, ma 
genera in modo del tutto automatico le linee del listato 
che li contengono. Il numero di queste linee è limitato 
esclusivamente dalia capacità di memoria del calcolatore. 
Inoltre, quando l’utente ha terminato il disegno di tutti gli 
sprites che gli occorrono, può attivare la procedura che 
abbiamo' definito in maniera alquanto pittoresca, ««autodi¬ 
struzione»: effettivamente il programma riesce a cancella¬ 
re se stesso, lasciando inalterate solo le linee di listato 
contenenti i data degli sprites. A questo punto si può co¬ 
minciare a digitare il programma dall’utente che sfrutta 
gli sprites, ma senza perdere tempo con i data. 

Non solo: AUTOSPRITE acilita notevolmente il lavoro del 
programmatore che vuole ottenere effetti di animazione 
con gli sprites. Per illustrare meglio il funzionamento del 
programma, spiegheremo a titolo di esempio proprio il 
procedimento da eseguire per ottenere con estrema sem¬ 
plicità delle animazioni grafiche. 


Come si usa autosprite 

Appena lanciato il programma, viene visualizzato il menu. 
Si sceglie quindi l’opzione numero 1, ovvero la creazione 
di uno sprite. 

Viene ora richiesto il numero di linee da cui il programma 
dovrà iniziare ad inserire i valori dei data. È ovvio che que¬ 
sto numero dovrà essere maggiore dell’ultima linea del 
programma AUTOSPRITE (ovvero 690), per non compro¬ 
mettere la cancellazione di alcune linee vitali per il funzio¬ 
namento. Non esiste comunque possibilità di errore poi¬ 
ché il programma provvede a rifiutare numeri di linea non 
validi. 

A questo punto verrà visualizzata una cornice entro la 
quale è possibile muoversi con i tasti cursore; per dise¬ 
gnare i punti dello sprite basta premere il tasto «a», men¬ 
tre per cancellarli si userà la barra spaziatrice. Terminato 
il disegno, bisogna premere il tasto e per passare all’ela¬ 
borazione dello sprite, ed eventualmente procedere con la 
verifica dello sprite creato tramite l’opzione 2. 


Supponiamo ora di voler creare delle animazioni: per ef¬ 
fettuare ciò sarà sufficiente alterare alcuni particolari del¬ 
lo sprite precedente come se si dovesse costruire un car¬ 
tone animato, quindi costruendo un algoritmo in grado di 
lavorare su tutti gli sprite creati, si potrà simulare il movi¬ 
mento. Allora digitiamo l’opzione 3, cioè correzione dello 
sprite 1: verrà chiesta di nuovo la linea di inizio. Questo 
perchè ci troviamo di fronte a due alternative: se il dise¬ 
gno precedente fosse errato e intendiamo correggerlo, al¬ 
lora dovremo digitare lo stesso numero di linea dato du¬ 
rante l’operazione di creazione. In questo modo la linea di 
programma contenente i dati del nuovo sprite cancellereb¬ 
bero le precedenti, correggendo gli eventuali errori. Nel 
caso delle animazioni invece, vogliamo che il disegno pre¬ 
cedente sia conservato, allo scopo di ottenere 2 sprites 
che si differenziano per pochi particolari, quindi forniremo 
un numero di linea più grande. Basta considerare che se 
il numero di linea del primo sprite era 1000, esso avrebbe 
occupato 5 linee di programma (1000, 1001, 1002, 1003, 
1004). Nella cornice apparirà il disegno del vecchio sprite, 
pronto per la manipolazione voluta. Quando tutti gli spri¬ 
tes saranno disegnati, si può effettuare l’autodistruzione 
premendo il tasto F8. Per qualche secondo verranno vi¬ 
sualizzate delle operazioni sullo schermo, dopodiché, 
chiedendo il List, vi accorgerete che saranno rimaste solo 
le linee contenenti i codici DATA. 
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LIST 


170 FRINT"Oh 1 USA RETURN PER TERMINARE L 
A PROVA.":P0KE214,10=PRINT 

189 PRINT ’ ‘SPRITE NUMERO";R 

190 v-03248 •' POKEV+21,1 = POKEV+39,1 

200 FORA=161921016255=READB•'POKER,B=HENT 

210 POKEV,160 = POKEV+1,100 :POKE2040,253 

220 GETAT I FA IOGURT < 13 > THEN220 

230 POKEV+21,0 : RUN 

240 REM CORREZIONE **** 

250 INPUT ":X'GÓLE SPR ITE VUOI CORREGGERE" 

.;r = cz=i 

260 IFRO1THENFORI = 1T064+: < R-1 > = READB = NEH 
T 

270 REM **** CREAZIONE +*** 

280 FORI =0T07 = E < I > =2T<7-1 > = NE,NT : PR I NT ' 'NT 1 
290 INPIJT ‘ 'LI NE A DI INIZIO".: IN : IFINC7O0TH 
ENPRI NT ' *P IU •' ALTA, PER FAVORE 1 " = OOTO290 
300 PRINT 1 "T ' = P0KE214,0•PRINT :PRINTTAB<5 > 
" ■"; :FORI = 1T024:PRINT 1 V * j : NENT :PRINT" 

310 P0KE214,22■PRINT = PRINTTAB<5>" “", =FOR 
I — 1T024 : PR i NT ' ' ;W ' ,i •' NE NT : PRINT"5" " 

320 PRINT'W'■■ FORI = 1T021 : PRINTTAB<5 > " " 

= NENT 

330 PRINT ’ W ' = FORI = 1T021=PRINTTAB<30>"I ' * 
=NENT PRINT 

340 PRINT"EES PER ELABORARE PER 

TRACEiARE 

350 IFCZ=1THENCZ=0 : GOSUB580 
360 P0KE214,0: PR I NT •' PR I NTTAB < 6 > 

370 W=PEEK<214 >#4@+P0S <0 > +1024 = POKEW,REE 
K(U> OR128 

380 GETAT =IFAT=""THEN380 

390 F- OKEW, PEEK < U > AND 127 

4U0 I FA*= "W 1 ANDPEEK <214 :• <21 THENF'R I NT A* ; 

410 IFH*="T'ANDPEEK<214>> 1 THENF'RINT A*; 

420 I FA*= 1 HI' ‘ AND POS < O > >6 THENF'R 1 NTA$ ; 

430 I FA*= ' HI ’ANDPQS<@> <29THENF'R INT A* 

440 IFA*= ' ’E ' THENPOKEM,PEEK <U>AND127 : GOTO 
,100 

450 IFATO"*"ANDATO" "THEN370 

460 GRINTA*, = IFPOS-:0>=30THENPRINT"H"; 

470 GOT0370 

480 P0KE214,22 = PR I NT = PR I NT ' ' sFITTEND I : STO 
ELABORANDO LA LINEA "; 

490 H=107O = FORI=0TO20 = P0KE214,22 = PRINT = P 
RI NTTAB < 32 > " S" I +1: Z=0 = FORK=0TO2 = T=0 
50O FORJ=0TO7 = B=0 = I FF'EEK< H+Z > =42THENB= 1 
510 T=T+B*E<J> = Z=Z+1 : NENT = H< I, K>=T = NENT 
520 H=H+40 = NENT = PRINT ' ' = RI=8 MN=5 

530 FORI =0TO4 = PRINT = PRINTIN+1 ''DATA IF 

I=4THENMN=1 

540 FORB't- 1TOMN = FORK=0TO2 = V*=STR$<ACRI, K 
) > = PR INTRI GHT* < V*, LEM < V* > -1 = NENTK 

550 RI =RI +1 = NENTBV PRI NT "Il ", = NENT I 
560 PR I NT 1 II, 0 " : PR I NT ' ’RIJNSS' ' ; : FOR I =631 T063 

6 POKE1,13 :NENT•PQKE198,6•END 
570 REM m SUBROUTINE CORREZIONE *# 

580 H=1070•FORI=0TO20 FORK=0TO2■READB 
590 FORJ=0TO7 = G=BANDE < J > = IFGOOTHENPOKEH 
, 42 

600 H=H+1= NENTJ,K = H=H+16 NENT = RETURN 
610 REM m AUTODISTRUZIONE m 
620 PR I NT ' TMfl' ' = PR I NT ‘ ' 1 DATA O ' ' 

630 PR I NT ' 'RUN640S3' ' = P0KE631, 13 •' P0KE632, 13 

= POKE198,2 : END 

640 READZ IFZ>62OTHEN68O 


650 PR I NT - TMPl' ' Z=Z+18 = PR I NT ' * 1 DATA ' ’Z 
660 PR INTZ • PR I NT ' 'RUN648ÌT ' 

678 FORI=0T02 P0KE631 +1,13 = NENT =POKE198, 
3 END 

680 PR I NT 1 -nm' ' FOR I =640TO69OSTEP 10 PR I NT 
I • NENT • PR I NT 1 = PR I NT ' 'PR INTCHR* < 147 > i=3* 1 
690 FORI=0T07 F0KE631+1,13 : NENT POKE198, 
5 END 


STRUTTURA DEL PROGRAMMA 

10/130 Inizializzazione e menu. 

140/230 Routine per la ferifica degli sprites creati. 

Il ciclo 160, sposta la lettura dei data al 
blocco corrispondente allo sprite da prova¬ 
re. Si torna poi al menu con un comando 
RUN che permette ad inizializzare nuova¬ 
mente il programma. 

240/260 Queste linee servono per inizializzare la let¬ 
tura dei data nel caso non si voglia creare 
uno sprite ma modificarne uno già fatto. 
Inoltre ponendo la variabile-flag ‘CZ’ ad uno 
si predispongono le routines successive al¬ 
la procedura di correzione. 

270/350 Creazione della cornice sul video e chiama¬ 
ta della subroutine 580 se si sta effettuan¬ 
do la correzione. In questo caso la subrou¬ 
tine disegnerà nella cornice il vecchio spri¬ 
te da modificare. 

360/470 Gestione del movimento del cursore e della 
stampa su video dei punti dello sprite. 

480/520 II programma «legge» ciò che è scritto nella 
cornice (ovvero il disegno dello sprite), tra¬ 
mite istruzioni di Peek sulla memoria-video. 
I valori calcolati vengono immessi nella 
matrice "A” che possiede le dimensioni 
adatte aM’immagazinamento dei dati relati¬ 
vi allo sprite (21 righe per 3 colonne). 

530/560 Queste righe costituiscono il «cuore del 
programma»: infatti il ciclo provvede a 
stampare sul video le 5 linee contenenti 
tutti i «data», e il comando «RUN». 

Poi riporta il cursore in alto a sinistra e im¬ 
magazzina 6 «Return» nel buffer provocan¬ 
do la memorizzazione delle linee di pro¬ 
gramma e l’esecuzione del comando RUN. 

570/600 Subroutine già descritta alle linee 270/350. 

610/690 Procedura di autodistruzione. 

Questa routine sfrutta il seguente meccani¬ 
smo: 

scrive sul video il numero della prima riga 
del programma. Poi immettendo un «return» 
nel buffer di tastiera provvede ad eliminar¬ 
la, dopodiché incrementa il numero della li¬ 
nea da cancellare e ripete il procedimento. 
In pratica è come se ogni numero di linea 
del programma venisse digitato manual¬ 
mente seguito da un «Return»: è chiaro che 
tutte le linee del programma vengono elimi¬ 
nate. 

Per tenere il conto della linea corrente da 
eliminare è necessario creare ex novo la li¬ 
nea 1 con una istruzione «Data» contenente 
il valore aggiornato. 
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n il programma che vi presentiamo questo mese è 
di tipo gestionale. 

Dopo aver dato il RUN, sul vostro video apparirà 
un indicatore che visualizza il tempo trascorso dall’accen¬ 
sione del computer. 

Il menù di questo programma è molto semplice e di rapi¬ 
da comprensione. 

F2-> ORA ESATTA 

È possibile settare sul display, premendo questo tasto, 
l’ora desiderata 

F3-> SVEGLIA/APPUNTAMENTO 

Mediante questo tasto è possibile programmare l’orario 
per la sveglia. Inoltre è possibile scrivere un appunto che 
ricordi all’utente l’impegno preso per quell’ora ( appunta¬ 
mento, visita...) 

F3-> CRONOMETRO 

Questa opzione permette all’utente di sfruttare il display 
come un cronometro. 

Mediante il tasto FI è possibile registrare il tempo crono¬ 
metrato, il tasto F3 consente di cronometrare un nuovo 
tempo e il tasto F5 restituisce all’utente la classificata 
dei tempi cronometrati. 

Bene, non vi resta che digitare correttemente il program¬ 
ma e...BUON DIVERTIMENTO!!! 



v POI i I u 17 t hi 

’ 'NEXT . 

28 PRINT‘‘5JjPM<!li*W*!l(!!3 —-, ---, 

--•• FORI - I T08 

29 F’PINT"a i I ! 

I NEXT 

iti FRI:r* ‘ I'hB'- ! : , "3 5*’ : PR 

INI "MsM" • TRE*. 18 1 . 3 *" 

L; PRINT \*fc*l2F2‘* ORH E-. fìT'l Ai»lrJF45 = SV 
EGLIA.- 'APPUNTO ’ ' 

35 FR i NT ’ 55 = C RGf "'/METRO ' ’ 

GOSUB10O 

U i PP !. N1 ’•=le«4.i’4.?XfJ h' ’, 1 HB •: 5'J « . KIGH 
T 4 < T1 i .■ 2 > 

45 T FR I GHT-t -, TU. 2 .• =■ ' Tifi ' : THENG03UB100 

50 GETP4 IFR4= ’ ’&• ! HF rIB4= ’’SVEGLIR ” GOTO 15 
0 

55 IFR4 5* THE! fc="ORA I - 1 £070150 

6G I FI EF i i ■■ Ut. 4 > A4 N, ii > AHDN- fìTHEHN=N+1 

70 IFLEFT l ' TI5 4 ■ '-A4<N . 0..«THEN I 20 
80 IFR4=”!!"THFH ;50- 

90 G01040 

100 FORO =4TÙ1 S’I EP-1 • r=T(,T-l> 0=VHL M1 D4 ( 
T14, J, 1} PR1 NT ’ •cii’lPlHWPli'ìi'r ' 

105 iJNiJi i0SUB550 > 600 6507G*0 , 750 ■ 800.. 850 , 
900,950 

110 l F0=0fHENGOSUB500 

115 NE7T RETURN 

120 FF: I NT ' 'cìpMpMpIpMpMpMpMpIpMpW 

122 P0KEV+4,33 FORI = 1T02 PRINT ’ ' 

” : NE,77 

125 PR I NT ' "T3 APPUNTO ’’, A X-i N , 1 > PR I NT ' FS3 

«spazio* = stop ” 

130 P0KEV+1,38 FOR I = OH '99 • ! €7T GETR1 I FR 
4= " ' THENPGKEV+4, O • N=N+1 GOTQ20 
140 F’OKEV +1,75 FOR I =0TO99 : NE IH G 0T0138 
145 IFS<ATHENS=S+1 

150 PR I NT M1NUTI-t ' ' 

155 PRINT" ORE-i I" PRINTTfi 

b<is>;‘*i i" 

160 PRINT" ESEMPIO 9,45 = 0945" FRINTTA 
B(l8);"i i" 

170 PR I NT " ", B 4 ; f AB < 14;-," ="; T AB < 1 7) ; ‘ A4 
="" 1=0 

180 CETE* iFE4 O’’'’THfcN200 

190 PRINT"'-, FORP=0TO149 NE . :T: PRIMI* il Sin 

", FORF*=0TO149 NE.XT GOTO 180 

290 I FETO * V ' 'RNDE4 i" ’ AND IC4THEN 1 = 1 + 1 : A4--- 

A4+E4 PRINTE4. GOTO188 

210 I FE4=CHR4 *. 20> ANDI X'THEN 1 = 1-1- A4=l.EFT 
4* I .4, 1 > • PRiNT'’ll il", • GOTO 180 
220 IFE4=CHR4•13>AND1=4THEN230 
225 GOTO180 

230 ì FR4=’ ‘ST ’THENT I 4=A4+ 4 ’OO ' ’ : G0T020 
240 N=0 A4 <; S, O > = A4 PR IN T INPUT ' ‘.m flPF'UN 
TU * ', A4 -, S , 1 > PR I NT 1 ‘3WW (IRE APPUN !" !, 

25U FOR I =0TOS PRINT., L.ER'4 < A4 < I, O >, 2 >, 

" RIGHT4-: A4 < 1,8>, 2> ; * * ' ’ ; A4 < 1, 1 ) NEXT 

260 PRINT’'WM ALTRO SVEGLIA-APPUNTO 355= 

51 «N5=N0 44 

270 GETE4 i FE40 ' ’N‘ 'AMBE40' ’S "THEN270 
280 I FE4= ‘ ’S ' ’THEN 145 

3O0 PURI=0TUS-1 FOR J=I +1TOS : IFA4 <1,0><=A 
4 <J,0> THEN320 
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310 E$=fi$ < J.. 0 } • R*=fi$ < J, 1 > : fi* J, 0 > =fi* < I , 0 
) • fi*< J, 1 >=fi$«: I , 1 > : fi*< I , 0>=E* • fì*< I • 1 )=R* 
320 NEXT : NEXT:IFS<ATHENS=S+1 
330 GOTO20 

350 INPUT'"Ma NONE PROVA 'XCSCOOF LEM 
<C*<C >> >22THEN350 

355 PRINT"MA *1 = VIA «SPAZIO* 

= STOPW * : PRI NTTfiB < 21 > , ' CRONOMETRO - 1 ' 


360 PRINT" 

362 PRINT" 

■■n— — dm " 

364 PRINT" 

zm dm 

366 PRINT" 

_ -]■ “MIII 

368 PRINT" 




:1 ;j 

SI «E J 

:«i3 

ss “a 


r 

IFETT ' 'fi ' 'ORE* > ' 'Z • THEN370 


370 CETE* 

375 I=TI 

380 PRINT-cìPMPliHidPMPWPl TEMPO IN SECONDI 

i»w";ai-i >/60 

385 GETE$ : I FE*= .THENC < C ) = < TI -1 :• X60 ■ GOT 

0480 

390 GOTO380 

PRINT "WWW' ' ;C <C >, TfiB (16),C$<C) PR INT * 1 
3F1P = REGISTRARE PROVA ‘ 


400 
M 

405 PRINT" 
T" 

488 
410 


:F3S = ALTRA PROVA" PRIN 
3F5S = VEDERE CLASSIFICA" 

PRINT" 3RETURN5 = RITORNO" 1=9 
CETE* IFE*=CHR*<13)THEN20 
420 IFE*=ANDI=0ANDC<ATHEN1 = 1 C=C+1 PP 
1 NT''W REOISTRATI".;C<C-1 ) ;C* <C~ 1 • 

430 I FET= ' 'THEN35Q 
440 IFE*<> "I!' THEN410 
445 FORI = 0TOC-2 • FOR-J 
T> THEN455 

450 T=C ( J > E*=C* < J :• 

> •' C ( I > ~T '■ C* ( I ) =E* 

455 HEXT:NEXT:PRINT ' 73 SECONBI 
ME PROVA "■J=22:FORI=0TOC-1 


1 + 3 TOC-1 T FC ( I K=CL 
< I)€(I) 

NO 


460 

PR I NTC ( I > ■' TAf 

< 16 ) , C 

*<I> 

465 

CETE* : IFE*="‘ 

ANDI=JTHEN465 

470 

475 

1 FETO" "THE: NJ 

NEXT 

=J+22 


480 

430 

CETE* IFE*="' 
GOT020 

THEN4Ì 

i0 

500 

PRI NTTfiB a.).; ' 

zr 


505 

PR INTTAB ( T ), ' 

zrw 

^zfw - 

510 

PRINTTABO), 1 

a * 

21 * *• 

515 

PR I NTT AB < T . ' 

a ■ 

a * " 

520 

PR I NTTfiB ( T ; ' 

a ■ 

a » 

525 

PRINTTfiB(T> ; ' 

a ■ 

a ■ " 

530 

PRINTTABO); ‘ 

a * 

a * " 

535 

FRI NTTfiB':' T > .. ' 


zrw " 

540 

PRINTTABO), 1 

'zi 

W " : RE 

550 

PRINTTABO), ' 

:r 

Hi 

555 

PRINTTABO), ' 


r a * 

560 

PRINTTABO) .i 1 

zrw 

a ■ 

565 

PRINTTABO)' 

a 

m 

570 

PRINTTfiB <T ), 1 

a 

m 

575 

PRINTTfiB(T ),' 

a 

m 

580 

PRINTTfiBO);' 

a 

UN 

535 

PR I NTT AB '• T > 1 

a 

HI 

530 

PRINTTABO); ' 

a 

* " • RE 

600 

PRINTTABO),' 

ar 


605 

PRINTTABO);* 

:rw 


610 

PRINTTABO) ; ‘ 


a ■ " 


615 

FRI NTTfiB*. 1 ; •• 

*a * " 

620 

PRINTTABO);" 

:F"r 

625 

PRINTTABO):" 

zrw " 

630 

PRINTTABO)" 

zri*r 

635 

PRINTTABO)," 

arwr 

640 

PRINTTABO' :' .; " 

:r m RETURN 

650 

PRINTTABO);" 

•JT -m 

655 

PRINTTABO)" 

zrw 'itiw " 

660 

PRINTTAB<T );" 

a ■ " 

665 

PRINTTABO);" 

zrw " 

670 

printtab a:* , " 

a « - 

675 

PRINTTABCT);" 

'izrm - 

680 

PR I NTTAB (T;*.; " 

a * " 

635 

PRINTTAB<T>;" 

vtfw :rw " 

630 

PRI NTTAB a:); " 

^a w return 

700 

PRINTTAB CT):" 

:r » " 

705 

PR INTTAB<T>.; " 

zrwa m •• 

710 

PRINTTAB(T);" 

zrw a ■ - 

715 

FRI NTTfiB *:.T>; " 

zrw a * " 

720 

PR I NTTAB LT) .* " 

zrw a « 

72'5 

PRINTTABCT>," 

a *' 

730 

PRINTTfiBv T >1" 

a ■ " 

735 

PRINTTABCT>;" 

a » " 

740 

FRIN 1 T AB 1 . 1.• " 

■-.i_ 1 jim 1 

750 

FRI NTTAB <T>" 

a ■ " 

—«r-rr 

JJ 

PRINTTAB-::T>: " 

a * 

760 

PRINTTABvT); 1 

a p 

765 

FRI NTTAB: LT > ‘ 

pa ,#s " 

770 

PRINTTABLT) , ‘ 

^ans " 

775 

FRINTTABCT>•* 

a p " 

780 

PRINTTfiB <T >■‘ 

a p a ■ " 

785 

PRINTTfiB<T>;‘ 

y:TW zrw " 

730 

PRINTTAB<T>;‘ 

sa «r return 

800 

FRINTTfiB<T>,‘ 


805 

FRINTTAB<T>* 1 

zrw sijppi ■■ 

8 I 0 

FRINTTfiBCT>j' 

a * a ■ " 

315 

PR I NTTAB <:t> ; ' 

a * 

820 

PR I NTTAB vT;', ' 

a ? ■*& 

825 

PRI NTTAB a) • 1 

a ’sapp " 

830 

PRINTTfiBCT);‘ 

a w a p " 

835 

PRINTTAB(T),' 

’SSTP" r-l r PP r " 

840 

PRINTTfiB<T>,' 

PS W "-RETURN 

850 

PRINTTAB'-T), ' 

a * " 

855 

PRINTTABCT);' 

zrw " 

860 

PRI NTTAB CO, ' 

ar - «r 

865 

PRINTTfiB 1 T >,* 

fp 

870 

FRI NTTfiB CO , ' 

a * 

875 

FRI NTTAB-:: OC ' 

a * 

888 

PRINTTAE':: T>: 1 

a * 

885 

PR I NTTAB (O, 1 

a p 

890 

pr i nttab cr:.-, ' 

a « ": RETURN 

300 

PRINTTAB'-T ): 1 

p« " 

305 

PRINTTABLT ); 1 

“jrw ’SSTP! " 

310 

FRINTTfiB < T> ,' 

•a * a ■ " 

315 

FRI NTTAB CO; ' 

laP* ar*r " 

320 

PRINTTABO), ' 

••a » " 

325 

PRINTTABO.:-, ‘ 

zrw - 

33Ò 

PRINTTABO) , * 

a * a " 

335 

PRINTTABO), ' 


340 

PRINTTABO ); 1 

la "RETURN 

350 

PRINTTABO •; ’ 

ar w. " 

355 

PRINTTABO): 1 

•;-rw ’isnsi " 

360 

PRINTTABO); ' 

a * a ■ " 

365 

PRINTTABO); ' 

papp ar ■ " 

370 

PRINTTABO); ' 

PS P " 

375 

PRINTTABO); ' 

a ■ " 

980 

PRINTTABO); ' 

a ■ a ■ " 

385 

PRINTTABO); * 


330 

PR I NTTAB O); 1 

■sa ": RETURN 
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□ gni nominativo introdotto è corredato da 9 strin¬ 
ghe di dati comprendenti indirizzo, città e provin¬ 
cia, nonché un secondo e terzo recapito ciascuno 
con i relativi numeri telefonici: ogni nome viene automati¬ 
camente aggiunto, in ordine alfabetico, a quelli già archi¬ 
viati. La ricerca non prevede necessariamente l’immissio¬ 
ne da tastiera del nome completo, ma è sufficiente intro¬ 
durre il gruppo iniziale di lettere che lo compongono (an¬ 
che una sola); il programma selezionerà automaticamente 
tutti i nominativi che rispondono alla richiesta presentan¬ 
doli uno alla volta sullo schermo: ciò equivale, in pratica, 
ad una consultazione dell’agenda. È possibile in qualun¬ 
que momento correggere i dati relativi a ciascun nomina¬ 
tivo o cancellarlo interamente. 

L’archivio dati è conservato su files intestati ciascuno 
con una lettera dell’alfabeto: in ogni file possono essere 
collocati fino a 100 nominativi, per un totale di oltre 2000. 
Il programma prevede, inoltre, la stampa totale o parziale 
dell’agenda su carta, nonché di buste con gli indirizzi 
completi eventualmente corredati dai dati del mittente. 

Istruzioni per l’uso del programma 


Caricate il programma selezionando la Directory principa¬ 
le (*DIR$) e inserendo il comando LOAD‘‘AT”. Quando il 
programma viene usato per la prima volta, occorre inseri¬ 
re «una tantum» i dati del mittente comprendenti cogno¬ 
me e nome, indirizzo, cap, città e sigla della provincia; il 
mittente ove richiesto, potrà essere stampato sul retro 
della busta (cfr. opzione stampa). I dati inseriti sono me¬ 
morizzati nella subdirectory S.AGETEL in un file chiama¬ 
to “00” che viene letto automaticamente ad ogni avvio di 
esecuzione del programma. Dopo l’inizializzazione, pertan¬ 
to, non è più possibile inserire da tastiera un nuovo mit¬ 
tente o correggerne l’indirizzo; qualora si renda necessa¬ 
rio operare delle modifiche, occorre cancellare il file usan¬ 
do i comandi del sistema operativo dopo essere usciti dal 
programma. La sequenza completa di cancellazione è la 
seguente: 

> *DIR$.AGETEL 

> *DELETE“00” 

Riavviare quindi il programma (RUN): verrà richiesta una 
nuova inizializzazione. 

Consultazione 


La consultazione dell’agenda prevede l’inserimento di un 


gruppo di lettere che possono corrispondere all’intero no¬ 
minativo o ai caratteri iniziali, fino ad una singola lettera. 
Il programma seleziona il primo nominativo contenente il 
gruppo di caratteri immessi visualizzandolo unitamente ai 
dati ad esso relativi: premendo il tasto ’COPY’ si passa al 
nome successivo che viene presentato sul video solo se 
contiene il gruppo di lettere richieste; il programma se¬ 
gnala sia il termine della serie che l'eventuale assenza di 
nominativi rispondenti alle caratteristiche richieste. 


Aggiornamento 


L’immissione di nuovi nomi dispone di 10 stringhe con un 
massimo di 45 caratteri inseribili in ciascuna; potete se¬ 
guire le indicazioni del programma oppure introdurre altri 
dati: occorre comunque precisare che il contenuto delle 
prime 5 stringhe verrà usato per stampare gli indirizzi sul¬ 
le buste. È possibile omettere l’inserimento di dati su una 
qualunque delle stringhe predisposte (ad eccezione di 
quella relativa al cognome) semplicemente premendo 'RE¬ 
TURN': tali righe vuote verranno successivamente ignora¬ 
te e sia la stampa che la visualizzazione saranno limitate 
a quelle effettivamente occupate; l’opzione di correzione 
consente di utilizzarle in qualunque altro momento suc¬ 
cessivo. Poiché il programma si serve del carattere 
per compattare le stringhe, non è possibile utilizzarlo 
nell’ambito deM’immissione dati. 


Correzione 


È possibile correggere tutte le stringhe di dati ad eccezio¬ 
ne di quella contenente il nominativo: quest’ultimo può 
essere solamente cancellato e reinserito di nuovo. Come 
avviene per la consultazione, è possibile richiedere anche 
una sola lettera: il tasto ‘COPY’ sfoglia l’agenda mentre la 
pressione di ‘DELETE’ seleziona il nominativo da correg¬ 
gere. Le stringhe compaiono una alla volta sullo schermo 
e possono essere confermate con tasto ‘TAB’, mentre la 
pressione di ‘DELETE’ attiva la procedura di correzione: i 
dati preesistenti sono visualizzati in reverse e su di essi si 
deve sovrascrivere la correzione; premendo ‘RETURN’ sen¬ 
za inserire alcun carattere, la stringha viene annullata. 
Per quanto concerne le righe precedentemente non riem¬ 
pite (che sono stampate vuote), la pressione di ‘TAB’ ne 
conferma la non utilizzazione mentre quella di ‘DELETE’ 
ne consente il primo uso. 
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Cancellazione 


Analogamente a quanto descritto nell’opzione precedente, 
il taso ‘COPY’ sfoglia l’agenda a partire dalla lettera o 
gruppo di lettere introdotte, mentre ‘DELETE’ provoca la 
completa cancellazione del nominativo visualizzato. 

Slampa 


La stampa di tutti i dati relativi a ciascun nominativo pro¬ 
cede da una lettera o gruppo iniziale fino ad uno finale, 
entrambi a scelta dell’utente: se si usa il modulo conti¬ 
nuo, il programma provoca un salto automatico di pagina 
in modo da evitare che i dati relativi ad un nominativo 
vengano stampati su fogli diversi; la stessa procedura vie¬ 
ne seguita con I foglio singolo, con la differenza che, do¬ 
po l’inserimento di una nuova pagina, occorre premere il 
pulsante ‘LOCAL’ sulla stampante. 

La stampa può essere arrestata in qualunque momento 
tenendo premuto il tasto tuttavia, poiché i dati vengo¬ 
no passati molto velocemente alla stampante, è possibile 
che la stampa continui anche dopo che l’interruzione è 
stata accettata e confermata dall'apparizione del menù. 
Per quanto concerne la stapa degli indirizzi, occorre sce¬ 
gliere in via preliminare se stampare o meno il mittente 
sul retro delle buste: in caso affermativo il programma si 
arresta dopo la stampa di ogni indirizzo per consentire di 
rigirare la busta. Anche la stampa degli indirizzi procede 
con modalità simili a quelle della consultazione: la pres¬ 
sione di ‘RETURN’ permette di sfogliare l’agenda, mentre 
il tasto ‘COPY’ attiva la stampa dell’Indirizzo visualizzato 
sullo schermo. 

Uscita 

Consente di uscire dal programma al termine della sua 
utilizzazione: è consigliabile eseguire sempre questa op¬ 
zione prima di spegnere il computer. Come già detto nella 
presentazione del programma di contabilità domestica (n. 
5 di maggio 1987 di LIST), quando il pacchetto sarà com¬ 
pletato con il lancio automatico ed il menù generale, l’op¬ 
zione uscita rinvierà automaticamente a quest’ultimo. 


AVVERTENZE IMPORTANTI 


Prima di iniziare la trascrizione del listato, leggete atten¬ 
tamente i paragrafi che seguono: 

1. I dati relativi a ciascun nominativo sono memorizzati 
sul dischetto in una subdirectory che è necessario creare 
da tastiera prima di far girare il programma che, altrimen¬ 
ti, si bloccherebbe non trovando lo spazio su cui memori- 
zare i dati. Pertanto, la prima operazione da seguire è l’in- 
seriento dei seguenti comandi: 

>*DIR$ 

> *CDIR$.AGETEL 

2. Poiché l’agenda telefonica è inserita in un più ampio 
pacchetto di programmi gestibili mediante un menù prin¬ 
cipale, è necessario, affinché possa essere caricato auto¬ 
maticamente, assegnargli un nome preciso. Pertanto, la 


registrazione del programma su disco va seguita nella di¬ 
rectory principale assegnando al file il nome “AT”: i co¬ 
mandi necessari sono i seguenti: 

> *DIR$ 

>SAVE“AT 

3. Il comando *FX4,1 di R.60 modifica i codici prodotti 
dai comandi del cursore e dal tasto ‘COPY’ i quali, non 
appena il programma è passato in esecuzione, perdono la 
propria funzione originale per l’edit del testo. Se si rende 
quindi necessario modificare il contenuto di una riga di 
programma, occorre, per evitare di riscriverla tutta, inseri¬ 
re il comando *FX4,0 che ripristina le normali funzioni dei 
tasti cursore e copy. Il comando può essere naturalmente 
inserito in uno dei tasti funzione (ad esempio fO) in modo 
da eseguirlo semplicemente premendo il tasto funzione 
stesso: 

> *KEY00FX4,0 : M 

4. Il comando *FX200,3 di R.70 provoca la disattivazione 
del tasto ESCAPE e la cancellazione della memoria con il 
tasto BREAK: tale precauzione è utile per evitare che una 
accidentale pressione del tasto ESCAPE provochi una 
uscita dal programma con conseguente perdita dei dati 
inseriti e non ancora registrati. Poiché in tale configura¬ 
zione non è possibile uscire dal programma per corregge¬ 
re righe contenenti errori di copiatura, vi consigliamo di 
inserire la R.70 solo dopo aver trascritto e collaudato tut¬ 
to il programma, avendo la certezza della completa assen¬ 
za di errori. 


STRUTTURA DEL PROGRAMMA 

R.60-100 

Comandi preliminari e dimensiona¬ 
mento vettori. 

R.110 

Lettura dati del mittente o loro inseri¬ 
mento. 

R.120-240 

Visualizzazione menù e scelta dell’op¬ 
zione. 

R.250-310 

Procedura di decompattazione e vi¬ 
sualizzazione dei dati. . 

R.320-390 

Procedura di decompattazione e 
stampa su carta dei dati. 

R.400-560 

Procedura di stampa degli indirizzi e 
del mittente. 

R.570-650 

Procedura di inizializzazione con l’in¬ 
serimento dei dati del mittente. 

R.660 

Stringhe di suggerimento per i dati da 
immettere. j 

R.670-860 

Opzione di consultazione. 

1 R.870-1070 

Opzione di aggiornamento; dopo la * 1 2 
conferma dei dati inseriti, il nominati¬ 
vo viene registrato sul file tenendo 
conto dell’ordine alfabetico. 

R.1080-1400 

Opzione di correzione. 

R.1410-1610 

Opzione di cancellazione del nomina- ' 
tivo dall’archivio. 

R.1620-1980 

Opzione di stampa su carta. 

R.1990-2010 

Opzione uscita dal programma. 

R.2020-2030 

Istruzioni sulle procedure da seguire 
in caso di errori. i 
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AGENDA TELEFONICA 


LIST 


2 


LIST 


10REM*** 


*** 

20REM*** 

AGENDA TELEFONICA 

*** 

30REM*** 

EN.FA.SOFT—1987 

*** 

40REM*** 

PC-128 S 

*** 

SoR'EM*** 


*** 

60*FX4,1 
70*FX200, 

3 



80QN ERROR GOTO 2020 
90DIM A* (IO) ,B* (100) 

100*DIR*.AGETEL 

11OA=OPENIN"00": IF A=0 THEN MODE 
128:PROCiniz ELSE INPUT#A,D1 *,D2* 
,D3$,D4*,D5*:CLOSE#A 

120DATA Consultazione,Aggi ornarne 
rito, Correz i one , Cancel lazione, Stamp 
a,Useita 

130REST0RE120:FOR K=1 IO 6:READ 
A*(K):NEXT 

140M0DE135:PRINT TAB(9)CHR*141 ;C 
HR*129;"AGENDA TELEFONICA": FRINT 7 
AB(9)CHR*141 ;CHR*12?;"AGENDA TELEF 
ONICA" 

150F0R K=1 TO 6SPRINT TAB<0,K+4> 
CHR*156 ;CHR*135;" ";A*(K):NEXT:P= 

1 :PP=1 

160PRINT TAB(0,22)CHR*133;CHR*15 
7;CHR*131 ;CHR*136;"Selezionare coi 
comandi del cursore" : FRI NT CHRf-13 
3; CHR*157; CHR*131 ; CHR*136; "e preme 
re 7 RETURN 7 " 

170PRINT TAB(0,PP+4)CHR*156 ;CHR* 
137;" " 5 A*(PP>SPRINT TAB(0,P+4)CH 

R*132; CHR* 157 ; CHR*130; CHR* 136 ; A* ( P 
) 

180A=GET 

190IF A=138 THEN 230 
200IF A=139 THEN 240 
210IF A»13 THEN ON P GOTO 670,87 
0,1080,1410,16 20,1990 
220G0T0 180 

230IF P<6 THEN PP=P:P=P+1 : GOTO 1 
70 ELSE P=6: GOTO 170 

240IF P>1 THEN PP=P:P=P-1 : GOTO 1 
70 ELSE F'=l : GOTO 170 
250DEFPR0Cricerca 
260REST0RE 660:CLS:W=OsFOR R=1 T 
0 10:READ A*<R):C*="REPEAT:W=W+1 
:C*=C*+MID* (RU*,W,1) 

270UNTIL MID* (RU*,W, 1)=CHR*35 
260C*=LEFT* < C* , LEN < C*)-1): IF C*= 
" " THEN 300 

290PRINT 7 A*(R);TAB(33)C* 

300NEXT 
31OENDPROC 
lonnfrppRnCatmp 1 

330REST0RE 660: VD'J2: VDU21 : W=0: FO 
R R=1 TO 10:READ A*<R):C*="":REPEA 


7 :W=W+1 :C*=C*+MID*(RU*,W,1) 

340UNTIL MID*(RU*,W,1)=CHR*35 
350C*=LEFT*(C*,LEN(C*)-1> : IF C*= 
"" THEN 370 

360PRINTCHR*1 ;CHR*27;CHRT52;A*(R 
);CHR*1 ;CHRT27;CHRT53; :PRINT TAB(3 
9)C*:CL=CL+1 

370NEXT R:PRINT:PRINT:CL=CL+2: IF 
CL >40 THEN CL=0:PRINTCHRS1;CHRS12 
380VDU6:VDU3 
390ENDPR0C 
400DEFPR0Cstmp2 
4lOPROCricerea 

420PRINT 77 " 7 COPY 7 =Stampa indiriz 
za 7 RETURN 7 =Nominativo successi 

vo /=Uscita" 

430Z=GET:IF Z=135 THEN 470 
440IF Z=13 THEN 560 
450IF Z = 47 THEN 550 
460GQT0 430 

470VDU2: VDU21 : W=0: C*=" " : REF'EAT : W 
=W+1:CS=CS+MID*<RU*,W,1):UNTIL MID 
*(RU$,W,1)=CHR*35:C*=LEFT*(C* f LEN( 
C*)-1>:PRINTCHR*1 ;CHRS27;CHR*69;TA 
B(17)C*;CHR*1 ;CHRS27;CHR*70SPRINT: 
FRI NT 

480C*= "":REPEAT:W=W+1 :C*=C*+MID* 
(RU*,W,1):UNTIL MID*(RU*,W,1)=CHR* 
35:C*=LEFT*(C*,LEN(C*)-1)SPRINT TA 
B(14)C*:PRINT:PRINT 

490Ct="":REPEAT:W=W+1 : C*=C*+MID* 
<RU*,W,1):UNTIL MID*<RU*,W,1)=CHR$ 
35:C*=LEFT*(C*,LEN(C*)-1):PRINT TA 
B(14)C*; 

500C*="":REPEAT:W=W+1 :C*=C*+MID* 
(RU*,W,1):UNTIL MID*(RU*,W,1)=CHR* 
35:C*=LEFT*(C*,LEN < C$)-1>:PRINTCHR 
*1 ;CHR*27;CHRT69;TAB(35)C*;CHR*1 ;C 
HR*27;CHR*70 

51OC*="":REPEAT:W=W+1 :C*=C*+MID* 
(RU*,W,1):UNTIL MID*(RU*,W,1)=CHR* 
35:C*=LEF7 *(C*,LEN(C*)-1)sPRINTTAB 
(31) " ( " ; C* ; " ) " : VDU6 : VDU3 : IF MT=0 T 
HEN 560 

520CLSSPRINT 777 "Girare la busta 
e inserirla con il bordo superiore 
in corrispondenza del marginesupe 
riore della mascherina metallica c 
he circonda la testina di scrittur 
a, quin-di premere 7 RETURN 7 " 
530Z=GET:IF Z<>13 THEN 530 
540VDU2:VDU21 :PRINT TAB(20)D1*:P 
RINT TAB(20)D2*SPRINT TAB(20)D3*;" 

";D4*;" <";D5*;")":VDU6:VDÙ3 

sGOTO 560 
550FS=1 
56OENDPROC 
570DEFPR0CÌni z 


56 


LIST 8-9/87 








LIST 


3 


LIST 


580PRINT"Inserimento dati anagra 
fici del mittente: INF’UTLINE 7 "Cog 
nome e nome/Pagi one sociale: ";Dl-£ 
:INPUTLINE'"Indirizzo: ";D2$:INPUT 
7 "Codice avviamento postale: " ; D3T 
:INPUTLINE 7 "Citta 7 : " ; D4* 

590INPUT’"Sigla provincia: " ; D5* 
:IF LEN(D5$><>2 THEN VDU11:VDU11 :G 
0T0 590 

6COPRINT 7777 "Correzioni? (S/N)" 
610Z*=GET$:IF Z*="S" OR Z$="s" T 
HEN CLS: GOTO 580 

620IF Z*="N" OR Z*="n" THEN 640 
630G0TQ 610 

6 40A =a 0PEN0UT " 00 ":PRINTttA,Dl$,D2$ 
,D3$,D4*,D5*:CL0SE#A 
650ENDPR0C 

660DATA Cognome e nome/Ragione s 
ociale:,Indirizzo:,Codice avviamen 
to postale: ,Citta 7 : ,Provi neia/Stat 
o estero: , Numeri tele-fonici : ,Secon 
do recapito: ,Numeri teiefonici : ,Te 
rzo recapito:,Numeri telefonici: 
670REM***C0NSULTAZIONE*** 

680M0DE 128:VDU19,1,2,0,0,0:PRIN 
T TAB(33)"CONSULTAZIONE" 

690VDU28,0,31,79,1:CLS:PRINT TAB 
(0,29)"/=Uscita":PRINT TAB(0,2)"In 
serire il nominativo richiesto per 
intero ovvero uno o piu 7 caratter 
i " : PRINT"_del 1 a parte iniziale: 
INPUT BT 

700IF B*="/" THEN 130 
710A-0PENIN(LEFTT(BT,1)):IF A=0 
THEN 810 

7201 NF'UT#A , J : IF J=0 THEN CL0SE#A 
: GOTO 810 

730K=0:REPEAT:K=K+1 : INPUT#A,RUT 
740UNTIL K=J OR LEFT $ ( RU$ , LEN ( BT- 
) ) =B* 

750IF K=J AND LEFT* (RU*, LEN (B* ) ) 
<>B$ THEN CLOSEttA:GOTO 810 
760PR0Cricerca 

770PRINT TAB(0,29) " 7 COPY 7 =Consul 
fazione /-Uscita" 

780Z-GET:IF Z-135 THEN 830 

790IF Z—47 THEN CLOSEttA: GOTO 690 

800G0T0 780 

81OPRINT TAB(0,29)"Nominativo no 
n presente in archivio." 

820S0UND1,-5,20,10:Z-INKEY(200): 
GOTO 690 

830K-K+1 : IF K>J THEN 860 
840INPUT#A,RU*:IF LEFT*(RUS,LEN( 
B$))OB$ THEN 860 
850G0T0 760 

860PRINT TAB(0,29)"Non sono pres 
enti in archivio altri nominativi. 


":CLOSEttA:GOTO 820 

870REM*-**AGGIORNAMENTO*** 

S80M0DE128 : VDLJ 19,1,3,0,0,0 : PR I NT 
TAB(33)"AGGIORNAMENTO" 

890VDU28,0,31,79,1:CLS: X-245 
900REST0RE 660:FOR K=1 TO 10:PRI 
NT TAB(50,28)"Caratteri di sponibil 
i: " ; X ;" ": READ B* 

91OPRINTTAB(33,K*2)"_ 


: F'RINT TAB ( 0, K*2 ) B* ; T AB (31) " ";:IN 
PUTLINE A*(K): IF LEN (A* (K) )>45 THE 
N SOUND 1,-5,20,10: GOTO 910 
920X=X-LEN (A*(K))-1 : NEXT 
9301F X< 0 THEN PR I NT T AB(0 ,28 ) " N 
umero eccessivo di caratteri.":SOU 
ND 1 , -5 , 20 , 10:Z - INKEY (200) : GOTO 890 
94 OPR I NT TAB(0,28) "Correzioni? ( 
S/N) " 

950 Z *=GET * : IF Z*="S" OR Z*-"s" T 
HEN 890 

960IF Z*="N" OR Z*="n" THEN 980 
970G0T0 950 

980PRINT TAB(0,28)"Registrazione 
":RUT="":FOR K=1 TO 10:RU^=RU^ 
+AT- (K) +CHRT35: NEXT 

990A=0PENIN(LEFTT(RUT,1) ) : IF A=0 1 
THEN 1070 

10001NF'UT#A, J : IF J=0 THEN CLOSEttA 
: GOTO 1070 

1010IF J >99 THEN FRINT 77 "Spazio i 
n memor i a esau.r i t.o. " : SOUND 1,-5,20 , 
10:CLOSEttA:GOTO 130 
1020K=0:REPEAT :K=K+ 1 : INPUTttA, BT( K 
):IF BT(K)>RUT THEN BT(K+l)=BT(K): 
B^(K)=RUT:K=K+1 :J =J+1 :RU*="Z Z Z Z Z Z Z 

II 

1030UNTIL K=J 

1040CL0SE#A: IF RU^="ZZZZZZZ" .THEN 
1060 

1050J = J +1 : BT- ( J ) =RU* 

1060A-0PEN0UT(LEFTT(BT(1),1)):PRI 
NT#A,J:FOR K=1 TO J:PRINTttA,B*(K): 
NEXT:CLOSEttA:GOTO 130 
1070B*(1)=RUt :J = 1: GOTO 1060 
1080REM***C0RREZIONE*** 

109OMODE 128:VDU19,1,7,0,0,0:PRIN 
T TAB(35)"CORREZIONE" 

1100VDU28,0,31,79,1:CLS:PRINT TAB 
(0,29)"/-Uscita":PRINI TAB(0,2)"E 7 
possibile correggere tutti i dati 
ad esclusione del nomi nativo.":PR 
INT 77 "Per correggere quest’ultimo 
occorre cancellarlo e reinserirlo 
mediante 1 7 opzione 7 AGGIORNAMENTO 7 " 
111OPRINT 7 7 7 "Inserire il nominati 
vo richiesto per intero ovvero uno 
o piu 7 caratteri dell aparte in 
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MST_5 


izi al e: "; : INPUT BT 
1120IF BÌ="/ n THEN 130 
1130A—0PENIN ( LEFTf- ( B$, 1 ) ) : IF A=0 
THEN 1380 

11401NPIJT#A, J : IF J=0 THEN CLOSEttA 
: GOTO 1380 

1150F0R K=1 TO J:*INPUT#A,B$ (K) : NE 
XT:CLOSEttA 

1160K=0:REPEAT:K=K+1 :UNTIL K=J OR 
LEFT# ( B$ (K) ,LEN(B*))=B* 

1170IF K—J AND LEFT# <B$(K),LEN(BT 
)><>B# THEN 1380 
1180RU#=B#(K):PROCricerca 
U90PRINT TAB (0,29) " 7 COPY 7 =Consul 
iasione 7 DELETE 7 =Correzione 
/=Uscita" 

1200Z=GET:IF Z=135 THEN 1240 
1210IF Z=47 THEN 1100 
1220IF Z= 127 THEN 1250 
1230G0T0 1200 

1240K*K+lsIF K>J THEN 1400 ELSE G 
□TO 1180 

1250CLS:PRINT TAB(0,29)" 7 TAB 7 =Con 
ferma 7 DELETE 7 =Correzione":X=24 

5 

1260REST0RE 660: UNO:READ A#C1):C# 
= " ":REPEAT: W=W+ 1 :C#=C#+M I D#(RU#, W , 
1 ) : UNT IL N I D# ( RU# , W , 1 ) =CHR#35 
1270PR1NT TAB(0,2 > A* <1);TAB(33 >LE 
FT# <C# , LEN (CT) -1 ) : B# <K> =€#: X = X-LEN 
(C#) 

1280F0R R=2 TU 10:PRINT TAB(50,27 
)"Caratteri disponibili: ";X;" " :R 
EAD A#(R>:C#="" : REPEAT : W=W+1 : C#=C# 
+MID# (RU#,W, 1) : UNT IL MID# <RU#,W, 1) 
=CHR#35 

1290PRINT TAB(0,R*2)A*(R); : IF C#= 
"#" THEN PRINT ELSE PRINTTAB(33)LE 
FT#(C#,LEN(C#)-1) 

1300Z=GET:IF Z=9 THEN B#(K)=B#(K> 
+C#:X=X-LEN(C#): GOTO 1330 
1310IF Z=127 THEN 1350 
1320G0T0 1300 
1330NEXT 

1340A=0PEN0UT(LEFT#(B#(K),1)):PRI 
NT#A,J:FOR K=1 TO J:PRINT#A,B#(K): 
NEXT:CLOSEttA:GOTO 130 
1350VDU11:PRINT TAB(33)" 


_" :VDU11 :COLOURO:COLOUR129: PRINT 

TAB(33)LEFT#(C#,LEN (C$) -1) : C0L0UR1 
:COLOUR128:VDU11 

1360PRINT A* (R);TAB(31)" "; : INPUT 
LINE C^:IF LEN(CÌ)>45 THEN SOUND1, 
-5,20,10:GOTO 1350 
1370X=X—LEN (C$) -1 : Bt- (K) =B^ (K) +C^+ 
CHR’^35 : GOTO 1330 

1380PRINT TAB(0,29) "Nomi nativo no 
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n presente in archivio." 

1390S0UND1,-5,20,10:Z = INKEY(200) ; 
GOTO 1100 

1400PRINT TAB(0,29)"Non sono pres 
enti in archivio altri nominativi. 

".-GOTO 1390 

141OREM***CANCELLAZIONE*** 

1420MQDE 128:VDU19,1,9,0,0,0:PRIN 
T TAB(33)"CANCELLAZIONE" 

1430VDU28,0,31,79,1 :CLS:PRINT TAB 
(0,29)"/-Uscita":PRINT TAB(0,2)"In 
seri re il nominativo richiesto per 
intero ovvero uno o piu - ’ caratter 
i ": PRINT "del la parte ini zi alle: 
INPUT B^ 

1440IF B$="/" THEN 130 
1450A=OPENIN(LEFT^(B$,1)):IF A=0 
THEN 1600 

1460INPUT#A,J:IF J=0 THEN CLOSEttA 
: GO TO 1600 

1470F0R K= 1 TO ,J : I NPUTttA , BT ( K ) : NE 
XT:CLOSEttA 

1480K=0:REPEAT:K=K+1 :UNTIL K=J OR 
LEFT^(B^(K),LEN(B$))=B^ 

14901F K=J AND LEFTT(BT(K) ,LEN(BT 
))< >Bt THEN 1600 
1500RU^=Bt(K):PROCricerca 
151OPRINT TAB(0,29)" ? COPY ? =Consul 
taz i one • DEELETE’ =Cancel 1 az i one 
/=Uscita" 

1520Z=GET:IF Z=135 THEN 1560 
1530IF Z=127 THEN 1570 
1540IF Z=47 THEN 1430 
1550G0T0 1520 

1560K=K+1 : IF K>J THEN PRINT TAB(0 
,29)"Non sono presenti in archivio 
altri nominativi. ":GOT 

0 1610 ELSE GOTO 1500 
1570IF J=1 THEN A=OPENOUT(LEFTf(B 
$(1),1)):J=0:PRINT#A,J:CLOSEttA:GOT 
0 130 

1580F0R R=K TO J:B*(R)=B$(R+l): NE 
XT:J=J-1 

1590A=0PEN0UT (LEFT4T- (Bt- ( 1 ) , 1 ) ) : PRI 
NTttA,J:FOR R=1 TO J:PRINTttA, B$ (R): 
NEXT:CLOSEttA:GOTO 130 
1600PRINT TAB(0,29)"Nominativo no 
n presente in archivio." 

161OSOUND1,-5,20,10:Z = INKEY(200) : 
GOTO 1430 

1620REM***ST AMF'A*** 

16 30M0DE128:VDU19,1,6,0,0,0:PRINT 
TAB(37)"STAMPA" 

1640VDU26,0,31,79,1:CLS:PRINT 77 " 1 
-Stampa agenda":PRINT 7 "2-Stampa in 
dirizzi"SPRINT 7 7 7 7 "/-Uscita" 
1650ZS=GET*:IF Z*="l" THEN 1690 
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1660IF Z*="2" THEN 1830 


ativo (o gruppo di lettere o singo 

16701F Z$="/" THEN 130 


la lettera) di partenza:FRINT:IN 

1680G0T0 1650 


PUT X* 

1690CLS:FRINT’Inserire il nomin 


1840PRINT 51 ' J "Volete stampare il m 

ativo (o gruppo di lettere o singo 


ittente sul retro della busta? (S/ 

la lettera) iniziali e final idei la 


N) " 

stampa. " 


1850Z$=GET$: IF Zf="S" OR Z$= ,, s" T 

1700FRINT TAB(0,10)"Stampa agenda 


HEN MT=1 : GOTO 1880 

da: "; : INPUTLINE X$:FRINT TAB(15, 


1860IF ZT="N" OR Z*="n" THEN MT=0 

12)"a: INPUTLINE YT 


: GOTO 1880 

1710PRINT’’’"Per interrompere la 


1870G0T0 1850 

stampa tenere premuto il tasto 9 /* 


1880X=ASC(X$)-1 :FS=0 

fino ad avvenuta": FRINT"interruzi 


1890REPEAT 

arie. " 


1900X-X+1:IF X>91 THEN 1970 

1720X=ASC ( XT ) -1 : Y=ASC (YT) : FS=0: CL_ 


1910A=0FENIN(CHR$X): IF A«0 THEN 1 

=0:VDU2 : VDU21 :FRINTCHR*1 ;CHR*14;TA 


970 

B ( 11)"AGENDA TELEFONICA":PRINT:PR 


19201NFUT#A,J: IF J=0 THEN CL0SE#A 

INT:VDU6:VDU3 


: GOTO 1970 

1730REFEAT 


1930F0R K=1 TO J:IF FS=1 THEN 196 

1740X=X+1:A=OPENIN(CHR$X): IF A=0 


0 

THEN 1810 


1940INPUT#A,RU#:IF RUT< XI THEN 19 

17501NF’UT#A , J : IF J=0 THEN CLOSEttA 
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: GOTO 1810 


1950PR0Cstmp2 

1760F0R K=1 TO J:INPUT#A,RU$:IF R 


1960NEXT K: GLOSE#A 

U$<XI THEN 1800 


1970UNTIL X >91 OR FS=1 

1770Wf="":IF X*=Y* THEN W$="/":G0 


1980G0T0 130 

TO 1790 


1990REM***USCITA*** 

1780IF RU$>Y$ THEN FS=1:K=J+1 


2000*DIRT 

1790PR0Cstmpl:Z*=INKEY*(10):IF ZI 


2010END 

= "/" OR W$="/" THEN CL0SE#A:FS=1 :G 


2020IF ERR=204 THEN S0UND1,-5,20, 

0T0 1810 


10:GOTO 130 

1800NEXT K:CL0SE#A 


2030IF ERR=19 THEN FRINT TAB(50,2 

1810UNTIL X>Y OR FS=1 


7)"Numero eccessivo di caratteri": 

1820G0T0 130 


SOUND1,-5,20,10:Z =INKEY(200):BT(K) 

1830CLS:PRINT’’"Inserire il nomin 


=RU^: GOTO 1250 


AGENDA TELEFONICA: 

ESEMPIO DI STAMPA 

Cognome e nome/Raoione sociale: ROSSETTI Emanuele 

Indirizzo : 

Viale della Primavera, 67 

Codice avviamento postale: 

20100 

Citta' : 

MILANO 

Provineia/Stato estero: 

MI 

Numeri tele fonici : 

02/122568 

Secondo recapito: 

Ufficio 

Numeri telefonici: 

02/152365 

Cognome e nome/Ragione sociale 

: ROSSINI Gianfranco 

Indirizzo : 

Via delle Allodole, 135 

Codice avviamento postale : 

10100 

Citta' : 

MONCALIERI 

Provincia/Stato estero : 

Torino 

Numeri telefonici: 

25.65.25 

Secondo recapito: 

Ufficio 

Numeri telefonici: 

35.35.35 

Terzo recapito: 

Casa suoceri 

Numeri te le fonici: 

54.54.54 
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hi ha detto che per ottenere effetti grafici spettacolari occorrono ne¬ 
cessariamente grossi (e costosi) computers? Questa volta vi dimostre¬ 
remo che anche con il piccolo Olivetti PC128 si possono realizzare 
pacchetti software di notevole eleganza, praticità ed utilità. Quello che propo¬ 
niamo ai vostri polpastrelli è un programma di grafica tridimensionale capace 
di disegnare proiezioni ortogonali, assonometrie e prospettive di figure a spi¬ 
goli! Il nostro OLI3D permette persino... le rotazioni delle figure stesse, (natu¬ 
ralmente entro i limiti della velocità di elaborazione purtroppo non molto ele¬ 
vata). Coloro che amano il disegno tecnico (o che non lo amano affatto, ma 
sono costretti a studiarlo a scuola!!!) si fregheranno già le mani; comunque il 
programma è interessante per tutti, almeno dal punto di vista didattico. Inoltre 
esso è quasi interamente gestibile da penna ottica, strumento ingiustamente 
dimenticato, ma utilissimo. 

Veniamo all’uso vero e proprio di OLI3D. Innanzitutto fate molta attenzione 
nella digitazione, poiché è molto facile confondersi con i nomi delle variabili, 
gli spazi, eccetera. In molti casi il programma non si fermerà segnalando un 
errore, ma causerà solo un malfunzionamento, rendendo così difficile l’identifi¬ 
cazione di errori di battitura. Terminato dunque l’arduo lavoro di digitazione, 
fate partire il programma con RUN e attendete qualche secondo che il compu¬ 
ter inizializzi le numerose variabili utilizzate. Alla fine apparirà il MAIN MENU, 
che contiene tutte le opzioni disponibili. Da esso si accede a tutti i sottomenu 
relativi al comando scelto. La selezione avviene tramite penna ottica, sempli¬ 
cemente appoggiandola sul nome desiderato e premendo sul monitor. Se non 
la possedete, dovrete adattarvi ad usare i tasti. Per attivare l’uso della tastiera 
occorre settare la variabile PNFLAG a 0 invece che a 1. Questo flag viene defi¬ 
nito alla linea 60, ed è qui che dovrete alterarne il valore sostituendo 1 con 0. 
Quando la tastiera è selezionata non si può usare la penna ottica e viceversa; 
inoltre vengono visualizzati o meno i numeri accanto alle opzioni; essi si riferi¬ 
scono ai tasti da premere per ottenere i vari comandi. 

Il primo problema che vi si pone adesso è come utilizzare la vostra nuova 
«creazione». Infatti il programma in se non esegue niente se non viene memo¬ 
rizzata una figura. In queste pagine troverete alcuni dati esempio per realizza¬ 
re dei solidi di vario genere. Questi dati vanno inseriti mediante il comando 
CREAZIONE (Creaz.). Esso vi permette di accedere ad un submenu contenente 
altri comandi. Analizziamoli uno alla volta. 

NUOVA FIGURA (N. Fig.) 

Permette di iniziare la creazione di una nuova figura, chiedendo l’inserimento 
di una sequenza di dati. Questi dati rappresentano le coordinate (spaziali, cioè 
X, Y, Z) dei vari spigoli della figura. Il computer traccerà la figura seguendo i 
collegamenti tra questi spigoli, come quando disegnate qualcosa «senza mai 
staccare la matita dal foglio». Per esempio, se inserisco in sequenza i quattro 
punti: (0,0,0), (10,0,0), (10,10,0), (0, 10, 0), (0,0,0) il programma disegnerà un qua¬ 
drato sul piano XY. Da notare che gli assi coordinati non sono disposti come 
comunemente siamo abituati a vederli, ma come si vede in figura 1. Tenete 
presente questo fatto quando ideate una figura, che vi consigliamo di costrui¬ 
re prima su carta e poi sul computer. 

Le coordinate dei punti, tuttavia, non bastano sempre per definire una figura. 
Ad esempio, un disegno può essere composto da due solidi staccati, e con il 
sistema appena visto questo non è possibile. A ciascun punto è quindi asso- 



* DATI 

INCASTRO * 




X 

Y 

z 

FI 

1 > 

-b 

10 ' 

-1 

— 

2 > 

n 

L 

10 

-1 

0 

3 > 

b 

1 

-1 

0 

4 > 

-2 

1 

-1 

0 

5 > 

-2 

-1 

-1 

0 

ò > 

6 

-1 

-1 

0 

7 > 

2 

-10 

-1 

0 

8 > 

-b 

-10 

-1 

0 

9 > 

-b 

10 

-1 

0 

10 ) 

-b 

10 

1 

0 

11 ) 

n 

10 

1 

0 

12 > 

b 

1 

1 

0 

13 ) 

n 

Z 

1 

1 

0 

14 ) 

-2 

-1 

1 

0 

15 ) 

b 

-1 

1 

0 

ló > 


-10 

1 

0 

17 > 

-6 

-10 

1 

0 

18 > 

-b 

10 

1 

0 

19 ) 

2 

10 

-1 

1 

20 ) 

2 

10 

1 

0 

21 > 

b 

1 

-1 

1 

22 > 

b 

1 

1 

0 

23 > 

-2 

1 

-1 

1 

24 ) 

-2 

1 

1 

0 

25 ) 

-2 

-1 

-1 

1 

26 ) 

-2 

-1 

1 

0 

27 ) 

b 

-1 

-1 

1 

28 ) 

b 

-1 

1 

0 

29 > 

2 

-10 

-1 

1 

30 > 

2 

-10 

1 

0 

31 > 

-b 

-10 

-1 

1 

32 > 

-b 

-10 

1 

0 

33 ) 

-6 

10 

-1 

1 

34 ) 

-b 

10 

1 

0 

35 ) 

-12 

-1 

8 

1 

36 ) 

4 

-1 

8 

0 

37 > 

8 

-1 

1 

0 

38 ) 

-2 

-1 

1 

0 

39 > 

-2 

-1 

-1 

0 

40 ) 

8 

-1 

-1 

0 
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ciato un flag che indica se esso deve essere o no collegato con quello prece¬ 
dente. Esso vale 1 per «NON collegamento», 0 per «collegamento». Natural¬ 
mente il primo punto non può essere collegato con nessun punto precedente, 
e quindi il flag non viene richiesto. 

Il discorso appena fatto può sembrare abbastanza astruso a prima vista. Se 
volete chiarirvi un po’ le idee provate ad inserire i dati di qualche figura- 
esempio. L’inserimento è semplicissimo. Battete i dati in sequenza, per ogni 
punto: X, Y, Z e stato di collegamento. Quando volete interrompere l’inseri¬ 
mento degli input. L’inserimento viene interrotto al punto corrente, indicato 
dal numero iniziale. 

CONTINUA FIGURA (C. Fig.) 

Ricomincia l’inserimento dall’ultimo punto memorizzato più uno, in modo da 
poter riprendere una figura precedentemente interrotta. Ricordiamo che non 
ha nessuna importanza che le linee componenti il disegno seguano una certa 
logica. Se vi siete dimenticati una linea, potete aggiungerla anche in fondo al¬ 
la figura riposizionandovi alle coordinate volute ed interrompendo il collega¬ 
mento tramite il solito flag settato ad 1. 

PROIEZIONI ORTOGONALI PARZIALI (PO pr.) 

Con questo comando potete seguire punto per punto l’andamento della vostra 
figura. Infatti vengono tracciate le proiezioni ortogonali di un punto alla volta; 
essi vengono visualizzati in basso in modo da individuare eventuali errori. 
Ogni volta che volete procedere un passo avanti dovete selezionare CONTI¬ 
NUE (CONT) oppure ESC per uscire. Alla fine, una volta completata la visualiz¬ 
zazione, dovete puntare la penna su OK, oppure premere un tasto qualsiasi se 
usate la tastiera. 

CANCELLA (Cane.) 

Distrugge un elemento della figura, scorrendo tutti i successivi di uno. Se bat¬ 
tete 0 verrà automaticamente cancellato l’ultimo elemento inserito. Se date 
solo ENTER potete uscire dall’opzione senza... colpo ferire (questo vale anche 
per gli altri comandi). 

MODIFICA (Mod.) 

Altera l’elemento desiderato. Se l'elemento da modificare è il primo, per ragio¬ 
ni di struttura viene richiesto anche lo stato di collegamento che è meglio set- 
tare ad 1. 

MAIN 

Come negli altri submenu, con questo comando si ritorna al menu principale. 
A questo punto siete in grado di gestire il nostro potente editor grafico e di 
valutarne appieno le caratteristiche. Iniziamo dalle proiezioni ortogonali (P.O.). 
Selezionandole si accede ad un nuovo elenco che permette di disegnare le 
proiezioni sui piani coordinati 1, 2, 3 singolarmente oppure su tutti contempo¬ 
raneamente, con una sorta di «squadratura del foglio». Alla fine di ogni rappre¬ 
sentazione grafica viene richiesto l’OK oppure la premuta di un tasto. Con 
MAIN si ritorna al MAIN MENU. 
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Veniamo alle assonometrie. Esse sono del tipo CAVALIERA RAPIDA (Cav.R.), 
ISOMETRICA (Isom.) e ad angoli programmabili, che vanno introdotti, alla ri¬ 
chiesta, nel formato: angolo 1, angolo 2. Tutti i disegni possono essere ingran¬ 
diti o ridotti mediante il selezionamento di INGRANDISCI (INGR.) o RIDUCI 
(RID.). Il fattore di ingrandimento dipende da un coefficiente visualizzato sem¬ 
pre in alto a destra, che può essere alterato con CAMBIO COEFFICIENTE 
(C.Coef). Più è alto il valore di COEF, più la figura si ingrandisce e si riduce 
velocemente. Ogni volta che viene selezionato C.Coef, il valore corrente viene 
incrementato di uno; quando si supera il numero nove ritorna ad uno, e cosi 
via. 

Per uscire da una visualizzazione selezionate ESC. 

Le prospettive rappresentano la parte più spettacolare di OLI3D. Sono disponi¬ 
bili la prospettiva con il punto di vista nello spazio (PdV-Sp) e quella semplifi¬ 
cata con in punto di vista sull’asse Z (PdV-Z). Le rotazioni avvengono su una 
prospettiva semplificata, e si selezionano con ROTAZIONI (Rot.). Naturalmen¬ 
te, più la figura è complessa, più le rotazioni saranno lente. Gli angoli di rota¬ 
zione vengono visualizzati nel riquadro in alto. Sono disponibili anche qui i co¬ 
mandi di ingrandimento e riduzione, con considerazioni analoghe a quelle vi¬ 
ste per l’assonometria. Cuando volete uscire usate OK oppure battete un ta¬ 
sto qualsiasi, a seconda che stiate utilizzando la penna ottica oppure no. 
Ora che vi siete divertiti a giocare con qualche figura, vi chiederete senz’altro 
come è possibile memorizzare permanentemente su nastro le vostre creazioni. 
L’opzione FILES comprende una completa gestione del nastro (potete agevol¬ 
mente modificarla per il disco) per salvataggio e caricamento. I comandi MO¬ 
TOR ON (M.On) e MOTOR OFF (M.Off) servono a posizionare facilmente il na¬ 
stro nella posizione desiderata, senza doverlo fare necessariamente prima 
dell’uso del programma. Da tutte le opzioni seguite da un imput, lo ricordiamo, 
si può agevolmente uscire premendo solo ENTER, in modo da evitare selezio¬ 
namenti indesiderati. 

L’ultimo comando presente nel MAIN MENU è quello dedicato alla gestione 
degli assi coordinati, che possono essere o no visualizzati insieme alla figura. 
Inizialmente gli assi sono settati attivi (AXIS ON, come si legge in alto a sini¬ 
stra nei vari menu). Selezionando A.Off essi vengono disinseriti, per essere 
riattivati quando si usa di nuovo l’opzione. 

Passiamo adesso ali’ormai di rito «angolino degli smanettoni», cioè alla parte 
dedicata a coloro che non si accontentano del programma cosi com’è, ma vo¬ 
gliono assolutamente personalizzarlo e migliorarlo. Questo è molto positivo. 
Anzi, vi esortiamo ad applicare le vostre conoscenze per ampliare OLI3D, e 
magari a mandarci i risultati. Poi, da cosa nasce cosa... 

Riguardo alla struttura del programma, c’è ben poco da dire. Come al solito 
abbiamo «farcito» abbondantemente il listato con linee REM, in modo che 
ogni subroutine abbia un nome e sia facilmente identificabile una volta capito 
il funzionamento base. Abbiamo inoltre cercato di evitare i GOTO inutili, che 
fanno solo confusione. Sono stati privilegiati invece i cicli DO...LOOP, molto 
utili in questo genere di software. Ma ecco alcune delle PRINCIPALI VARIABI¬ 
LI utilizzate: 

XO, YO, ZO, F%: sono i vettori contenenti al massimo 199 elementi (potete fa¬ 
cilmente variare questo numero alterando i dimensionati). Essi memorizzano 
la figura così come la inserite, e vengono modificati solo dalle apposite routi- 
nes di cancellazione, ecc. 

XS, YS: variabili temporanee contenenti valori adatti al disegno corrente. 

C, S: queste sono complesse funzioni che gestiscono la scanalatura e l’origi¬ 
ne assoluta e relativa degli assi. Potete cercare di usarle anche nei vostri pro¬ 
grammi, poiché sono molto utili... 

AXOR, AYOR, AXEND, AYEND: rappresentano l’origine e la fine della finestra 
grafica. 

PIX, PIX1, PIX2: origine relativa e scalature correnti. 

SXOR, SYOR, SXEND, SYEND: origine relativa e scalatura usate nella formula 
di calcolo coordinate. 

N:numero di elementi presenti in memoria. 


84 ) 

8 

-1 

-1 

1 

85 ) 

8 

1 

-1 

0 

» DATI 

PRISMA # 





X 

Y 

Z 

FI 

1 ) 

5 

-5 

-10 

— 

2 > 

-5 

-5 

-10 

0 

3 > 

-11 

-5 

0 

0 

4 > 

-5 

-5 

10 

0 

5 > 

5 

-5 

10 

0 

6 > 

11 

-5 

0 

0 • 

7 > 

5 

-5 

-10 

0 

8 > 

-5 

-5 

-10 

1 

9 > 

-5 

5 

-10 

0 

10 ) 

-11 

5 

0 

0 

11 > 

-11 

-5 

0 

0 

12 ) 

-11 

5 

0 

0 

13 > 

-5 

5 

10 

0 

14 ) 

-5 

-5 

10 

0 

15 ) 

-5 

5 

10 

0 

16 ) 

5 

5 

10 

0 

17 ) 

5 

-5 

10 

0 

18 > 

5 

5 

10 

0 

19 ) 

11 

5 

0 

0 

20 ) 

11 

-5 

0 

0 

2 i > 

11 

5 

0 

0 

22 ) 

5 

5 

-10 

0 

23 ) 

5 

-5 

-10 

0 

24 > 

5 

5 

-10 

0 

25 ) 

-5 

5 

-10 

0 

* DATI PARALLELEPIPEDO 

* 



X 

Y 

l 

FI 

1 ) 

10 

8 

4 

— 

2 > 

10 

B 

-4 

0 

3 ) 

10 

-8 

-4 

0 

4 > 

10 

-8 

4 

0 

5 ) 

10 

8 

4 

0 

6 > 

-10 

8 

4 

1 

7 ) 

-10 

8 

-4 

0 

8 ) 

-10 

-8 

-4 

0 

9 > 

-10 

-B 

4 

0 

10 ) 

-10 

8 

4 

0 

11 ) 

10 

8 

4 

1 

12 ) 

-10 

8 

4 

0 

13 ) 

10 

8 

-4 

1 

14 ) 

-10 

8 

-4 

0 

15 ) 

10 

-8 

-4 

1 

16 ) 

-10 

-8 

-4 

0 

17 ) 

10 

-8 

4 

1 

18 ) 

-10 

-8 

4 

0 
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* DATI 

CUBO * 




1 > 

10 

-10 

-10 

- 

2 ) 

10 

-10 

10 

0 

3 > 

-10 

-10 

10 

0 

4 > 

-10 

-10 

-10 

0 

5 > 

10 

-10 

-10 

0 

6 > 

10 

10 

-10 

0 

7 > 

10 

10 

10 

0 

8 > 

10 

-10 

10 

0 

9 ) 

10 

10 

10 

1 

10 > 

-10 

10 

10 

0 

11 > 

-10 

-10 

10 

0 

12 > 

-10 

10 

10 

1 

13 ) 

-10 

10 

-10 

0 

14 > 

-10 

-10 

-10 

0 

15 > 

-10 

10 

-10 

1 

16 > 

10 

10 

-10 

0 





LIST ; i 


1 REM *********************** 

2 REM * 0LI3D — PC128 * 

3 REM * VERSION 1.6 BY * 

4 REM * GIULIO VANNINI * 

5 REM * ANGELO COCCETTINI * 

6 REM * COPYRIGHT LIST 1987 * 

7 REM *********************** 

IO REM 

20 REM *** INIZIALIZZAZIONI *** 

30 REM 

40 CLEAR , , 5 : DEFGRT- ( O ) =0,0,2,60,84,20,20, 
0:DEFGRT(1)=0,8,24,63,127,63,24,8:DEFGR* 
(2)=0,8,12,126,127,126,12,8 
50 DEFGRS(3)=0,8,28,62,127,28,28,28:DEFG 
R*(4)=0,28,28,28,127,62,28,8 
60 PNFLAG=1 : REM *FLAG PER SELEZIONARE* 

* LA PENNA OTTICA * 

70 DEFFN CX(X)=<((X-SXOR)*<AXEND-AXOR))/ 
(ABS(SXEND-SXOR)))+AXOR 

80 DEFFN CY(Y > = (199-(((Y-SYOR)*(AYEND-AY 
OR))/(ABS(SYEND-SYOR))))-AYOR 
90 DIM XO ( 199) , YO ( 199) , ZO ( 199) , F7. ( 199) 
100 DIM XI(199),Y1(199),Z1(199),XS(199), 
YS(199),C(360),S(360),P0PT(5) 

110 DATA 0,0,0,1,0,0,-20,0,0,0,0,1,-20,0 
,0,0,0,0,0,1,0,20,0,0 

120 FOR 1=1 TO 6:READ XO(I),YO(I),ZO(I), 
F7.(I):NEXT I 

130 DATA 0,7,14,21,28,34:F0R 1=0 TO 5:RE 
AD POPT(I):NEXT I 

140 AXOR=1 :AY0R=20:AXEND=318:AYEND=172 
150 CONSOLE ,,,,2:SCREEN 3,0,0:CLS 
160 LOCATE 0,22:PRINT "ATTENDERE..." 

170 N=7:AXFLAG=1 

180 PEN 0;(0,24)-(48,0),1;(56,24)-(104,0 
),2;(112,24)—(160,0),3;(168,24)-(216,0), 
4;(224,24)-(264,0),5;(272,24)-(312,0),6; 
(290,178)-(315,158) 

190 PP=3.1415926/180:FOR 1=0 TO 360:S(I) 
=SIN ( I*PP) : C ( I ) =COS ( I*F'P) : NEXT I 
200 REM *** MAIN MENU *** 

210 DO 
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220 SC=5:PIX=25:PIXl=-52:PIX2=-25 
230 CLS:BOXF(0,2)-(39,0)" ",0,5:LOCATE 0 
,1 

240 COLOR 3:ATTRB 0,1:FRINT " P.O. Ass 
on. Prosp. Crea:. Files A."; 

250 IF AXFLAG=1 THEN PRINT "Off" ELSE PR 
INT "On" 

260 ATTRB 0,0:COLOR 2:G0SUB 3820 
270 GOSUB 3700 

280 LOCATE 1,23:COLOR ,3:PRINT " 

- MAIN MENU - ":COLOR ,0 

290 N0PT=6:GOSUB 3870 

300 ON LIN GOSUB 320,700,1340,2280,3010, 
3320 

310 LOOP 
320 REM 

330 REM *** PROIEZIONI ORTOGONALI *** 

340 REM 
350 START=7 
360 DO 

370 EFLAG=0:CLS:BOXF(0,2)-(39,0)" ",0,5: 
LOCATE 0,1 

380 COLOR 3:ATTRB 0,1:PRINT " ";GR*(0); 

" 1 "|SR*(0>;" 2 ";0R$(0);" 3 "• 

GR#(0);" 123 MAIN":ATTRB 0,0:COLOR 2 
390 GOSUB 3820:LOCATE 1,23:COLOR ,6:PRIN 

T " - PROIEZIONI ORTOGONALI - 

":COLOR ,0 

400 N0PT=5:GOSUB 3870 

410 ON LIN GOSUB 450,490,530,570,3560 
420 IF EFLAG=1 THEN EXIT 
430 LOOP 
440 RETURN 

450 REM *** PIGRECO 1 *** 

460 FOR 1=1 TO N:XS(I)=X0(I):YS(I)=Z0(I) 

:NEXT I 

470 LOCATE 1,23:COLOR,6:PRINT " — PRO 

IEZIONI ORTOGONALI ";GR*<0>;" 1 —": COL 
OR, 0 

480 GOSUB 3410:GOSUB 680:GOSUB 3490:RETU 
RN 

490 REM *** PI GRECO 2 *** 

500 FOR 1=1 70 N:XS(I)=X0(I):YS(I)=Y0(I) 
:NEXT I 

510 LOCATE 1,23:COLOR,6:PRINT " — PRO 

IEZIONI ORTOGONALI ";GR$(0>:" 2 —": COL 
OR, 0 

520 GOSUB 3410:GOSUB 680:GOSUB 3490:RETU 
RN 

530 REM *** PIGRECO 3 *** 

540 FOR 1=1 TO N:XS(I)=Z0(I):YS(I)=Y0(I) 
: NE X T I 

550 LOCATE 1,23:COLOR,6:PRINT " — PRO 

IEZIONI ORTOGONALI ";GR*(0>;" 3 —": COL 
OR, 0 

560 GOSUB 3410:GOSUB 680:GOSUB 3490:RETU 
RN 

570 REM *** PIGRECO 123 *** 

580 IF XFLAG=0 THEN LOCATE 1,23:COLOR,6: 
PRINT "— PROIEZIONI ORTOGONALI ";GR*(0 
)»" 1 "; GR$(0) ;"2 “;GR$(0);”3 —": COLOR,0 
590 AX0R=1:AY0R=97:AXEND=158:AYEND=172:G 
OSUB 3730:WINDQW(1,27)-(158,103) 

600 FOR 1=1 TU N:XS(I)=XU(1):YS(I)=Y0(I) 

:NEXT I:GOSUB 3410 

610 AX0R=160:AY0R=97:AXEND=318:AYEND=172 
:GOSUB 3730:WINDOW(160,27)—(318,103) 

620 FOR 1=1 TO N:XS(I)=Z0(I):YS(I)=Y0(I) 

:NEXT I:GOSUB 3410 
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630 AXOR=1 :AY0R=20;AXEND=158:AYEND=95:GO 
SUB 3730:WINDOW(1,105)-(158,179) 

640 FOR 1 = 1 TO N:XS(I)=X0(I):YS(I)=Z0(I ) 

:NEXT I:GOSUB 3410 

650 GOSUB 3760:AX0R=1:AYQR=20:AXEND=318: 

AYEND=172:GOSUB 680 

660 IF XFLAG=0 THEN GOSUB 3490 

670 RETURN 

680 REM *** ASSI CENTRALI *** 

690 LINE(FNCX(PIX1),FNCY(0))-(FNCX(-2*PI 
XI),FNCY(0)),2:LINE (FNCX(0),FNCY(PIX2>) 
-(FNCX(0),FNCY(-2*PIX2>),2:RETURN 
700 REM 

710 REM *** ASSONOMETRIE *** 

720 REM 

730 IF AXFLAG=1 THEN START=1 ELSE START= 

7 

740 DO 

750 EFLAG=0:CLS:BOXF(0,2)-(39,0)" ",0,5: 
LOCATE 0,1 

760 COLOR 3:ATTRB 0,1:PRINT " Cav.R. Iso 
m. Progr. C.Coef MAIN":ATTRB 0,0:COLOR 
0 

770 GOSUB 3700 

780 LOCATE 31,2:PRINT "COEF:":' 

790 GOSUB 3820: LOCATE 1,23: CQl.OP ,-.lPIN 

T " - ASSONOMETRIK 

":COLOR 2,0 
800 CFFLAG=0 
810 N0PT=5:GOSUB 3870 

820 ON LIN GOSUB 880,1000, l T': », 3660,3* 
830 REM 

840 IF CFFLAG=1 THEN GOTO t- 
850 IF EFLAG=1 THEN EXIT 
860 LOOP 
870 RETURN 

880 REM *** CAVALIERA RAPIDA * 

890 EFLAG2=0 
900 DO 

910 GOSUB 1240 

920 GOSUB 3780:LOCATE 1,23:COLOR ,6: RIN 

T " -ASSONOMETRIA CAVALI ERA 

":COLOR ,0 

930 A1=135:A2=180:GOSUB 1300 

940 GOSUB 3410 

950 NOPT=3:GOSUB 3870 

960 ON LIN GOSUB 3600,3630,3580 

970 IF EFLAG2=1 THEN EXIT 

980 LOOP 

990 RETURN 

1000 REM *** ISOMETRICA *** 

1010 EFLAG2=0 
1020 DO 

1030 GOSUB 1240 

1040 GOSUB 3820:LOCATE 1,23:C0L0R ,6:PRI 

NT " - ASSONOMETRIA ISOMETRICA - 

":COLOR ,0 

1050 A 1=30:A2=30:GOSUB 1300 

1060 GOSUB 3410 

1070 N0PT=3:GOSUB 3870 

1080 ON LIN GOSUB 3600,3630,3580 

1090 IF EFLAG2=1 THEN EXIT 

1100 LOOP 

1110 RETURN 

1120 REM *** PROGRAMMABILE *** 

1130 CONSOLE 21,21:LOCATE 2,21:INPUT "IN 
SERISCI ANG.1,ANG.2 : "; Al,A2:CONSOLE 0, 
24 

1140 EFLAG2=0 
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1150 DO 

1160 GOSUB 1240 

1170 GOSUB 3820:LOCATE 1,23:COLOR ,6:FRI 
NT " 

":LOCATE 1,23:PRINT " ASSI: A1=";A1;" 
A2=";A2:COLOR ,0 
1180 GOSUB 1300:GOSUB 3410 
1190 N0PT=3:GOSUB 3870 
1200 ON LIN GOSUB 3600,3630,3580 
1210 IF EFLAG2=1 THEN EXIT 
1220 LOOP 
1230 RETURN 

1240 REM *** SUB MENU ASSON. *** 

1250 CLS:BOXF(0,2)-(39,0)" ",0,5:LOCATE 
0,1 

1260 COLOR 3:ATTRB 0,1:PRINT " INGR. R 
ID. ESC":ATTRB 0,0:GOSUB 3820 
1270 GOSUB 3700 

1280 COLOR,5:LOCATE 31,2:PRINT "COEF:";S 
C 

1290 RETURN 

1300 REM *** SETTA PARAMETRI *** 

1310 S1=S(Al):C1=C(Al):S2=S(A2):C2=C(A2) 
1320 FOR 1=1 TO N:XS(I)=-X0<I)*C1+Z0<I>* 
C2:YS(I)=X0(I)*S1+Z0(I)*S2+Y0(I) 

1330 NEXT I:RETURN 
1340 REM 

1350 REM *** PROSPETTIVE *** 

1360 REM 

1370 IF AXFLAG=1 THEN START=1 ELSE START 
=7 

1380 DO 

1390 EFLAG=0:CLS:BOXF(0,2)-(39,0)" ",0,5 
: LOCATE 0,1 

1400 COLOR 3:ATTRB 0,1:PRINT " PdV-Sp Pd 
V-Z Rot. C.Coe-f MA IN": ATTRB 0,0 
1410 COLOR 0:LOCATE 31,2:PRINT "COEF:";S 
C 

1420 GOSUB 3700 

1430 GOSUB 3820: LOCATE 1,23:COLOR ,6 :PRI 
NT " - PROSPETTIVE - 

II 

1440 CFFLAG=0 

1450 N0PT=5:GOSUB 3870 

1460 ON LIN GOSUB 1510,16 90,1860,3660,35 

60 

1470 IF CFFLAG=1 THEN GOTO 1440 
1480 IF EFLAG=1 THEN EXIT 
1490 LOOP 
1500 RETURN 

1510 REM *** PDV NELLO SPAZIO *** 

1520 EFLAG2=0 
1530 DO 

1540 GOSUB 2230 

1550 GQSUB 3820:LOCATE 1,23:COLOR ,6:PRI 

NT " - PDV NELLO SPAZIO - 

":COLOR ,0 

1560 D1=J<_>: D=20: A=75: B=15: C1=C (A) : S1=S(A 
) : C2=C(B):S2=S(B) 

1570 FOR 1=1 TO N 
1580 XE=—XO(I)*S1+ZO(I)*C1 
1590 YE=-XO(I)*C1*C2+Y0(I)*S2-Z0(I)*S1*C 
2 

1600 ZE=—XO(I)*C1*S2—YO(I)*C2-Z0(I> *S1*S 
2+D1 

1610 XS(I)=D*XE/ZE:YS(I)=D*YE/ZE 

1620 NEXT I 

1630 GOSUB 3410 

1640 N0PT=3:GOSUB 3870 


1650 ON LIN GOSUB 3600,3630,3580 
1660 IF EFLAG2=1 THEN EXIT 
1670 LOOP 
1680 RETURN 

1690 REM *** PDV SU ASSE Z *** 

1700 EFLAG2=0 
1710 DO 

1720 GOSUB 2230 

1730 GOSUB 3820:LOCATE 1,23:C0L0R ,6:PRI 

NT " - PDV SULL’ASSE Z - 

":COLOR ,0 

1740 D1=20:D2=30:A=135 
1750 C5=C(A):S5=S(A) 

1760 FOR 1=1 TO N 

1770 XE=XO(I)*C5+Z0(I)*S5:YE=YO(I):ZE=-X 
0(1)*S5+Z0(I)*C5 

1780 XS(I)=D1*XE/(D2-ZE):YS(I)=-Dl*YE/(D 
2-ZE ) 

1790 NEXT I 

1800 GOSUB 3410 

1810 N0PT=3:GOSUB 3870 

1820 ON LIN GOSUB 3600,3630,3580 

1830 IF EFLAG2=1 THEN EXIT 

1840 LOOP 

1850 RETURN 

1860 REM *** ROTAZIONI *** 

1870 EFLAG2=0:A0=180:B0=180 
1880 DO 

1890 CLS:BOXF(0,2)-(39,0)" ",0,5:LOCATE 
0,1 

1900 COLOR 3:ATTRB 0,1:FRINT " INGR. RI 
D. Rot";GR*(1);" Rot";GR$(2);" Rot 
";GR*(3);" Rat";GR$(4>:ATTRB 0,0:GOSUB 
3820 

1910 COLOR,5:LOCATE 31,2:PRINT "COEF:";S 
C:GOSUB 3700 

1920 LOCATE 10,2:PRINT "ANG1=";AO;"ANG2= 
" ; BO 

1930 GOSUB 3820:LOCATE 1,23:C0L0R ,6:PRI 

NT " - PROSPETTIVA CON ROTAZIONE - 

":COLOR ,0 

1940 DI=20:D2=30:A=120:C5=C(A):S5=S(A) 
1950 FOR 1 = 1 TO 6 : X1 (I)= X0(I):Y1 (I)=YO(I 
): ZI(I)=ZO(I):NEXT I 
1960 FOR 1=7 TO N 

1970 X1(I)=X0(I)*C(BO)+Y0(I)*C(AO)*S(BO) 
+ Z 0(I)*S(AO)*S(BO) 

1980 Y1 ( I ) =—XO ( I ) *S (BO) +Y0 ( I ) *C (AO) *C (BO 
>+ZO(I)*S(AO)*C(BO) 

1990 ZI(I)=—YO(I)*S(AO)+Z0(I)*C(AO) 

2000 NEXT I 
2010 FOR 1=1 TO N 

2020 XE=X1(I)*C5+Z1(I)*S5:YE=Y1(I):ZE=-X 
1(I)*S5+Z1(I)*C5 

2030 XS(I)=D1*XE/(D2-ZE):YS(I)=-D1*YE/(D 
2-ZE) 

2040 NEXT I:GOSUB 3410 

2050 COLOR 3,1:ATTRB 0,1:LOCATE 36,21:PR 
INT "OK":ATTRB 0,0 
2060 N0PT=7:GOSUB 3870 

2070 ON LIN GOSUB 3600,3630,2120,2130,21 
40,2150,2160 

2080 IF EFLAG2=1 THEN EXIT 

2090 GOSUB 2170 

2100 LOOP 

2110 RETURN 

2120 A0=A0+36: RETURN 

2130 AO=AO—36 : RETURN 

2140 BO=BO—36 : RETURN 
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2150 B0=B0+36:RETURN 
2160 EFLAG2=1:RETURN 
2170 REM *** CONTROLLO ANGOLI *** 

2180 IF A0<0 THEN A0=324 
2190 IF A0>360 THEN A0=36 
2200 IF B0<0 THEN B0=324 
2210 IF B0>360 THEN B0=36 
2220 RETURN 

2230 REM *** SUB MENU PROSP *** 

2240 CLS:BOXF(0,2)-<39,0)" ", 0,5:LOCATE 
0,1 

2250 COLOR 3:ATTRB 0,1:PRINT " INGR. R 
ID. ESC":ATTRB 0,0:COLOR 2:G0SUB 3820 
2260 COLOR,5:LOCATE 31,2:PRINT "COEF:";S 
C:GOSUB 3700 
2270 RETURN 
2280 REM 

2290 REM *** CREAZIONE FIGURE *** 

2300 REM 
2310 DO 

2320 EFLAG=0:CLS:BOXF(0,2)-(39,0)" ",0,5 
: LOCATE 0,1 

2330 COLOR 3:ATTRB 0,1:PRINT " N.Fig C. 
Fig PO pr. Cane Mod MAIN":ATTRB 0,0 
: COLOR 2 

2340 GOSUB 3820:L0CATE 1,23:COLOR ,6:PRI 

NT " - CREAZIONE FIGURE - 

":COLOR 2,0 

2350 N0PT=6:GOSUB 3870 

2360 ON LIN GOSUB 2400,2460,2490,2630,27 
30,3560 

2370 IF EFLAG=1 THEN EXIT 
2380 LOOP 
2390 RETURN 

2400 REM *** NUOVA FIGURA *** 

2410 LOCATE 2,5 

2420 IF FIGFLAG=0 THEN GOSUB 2860:RETURN 
2430 INPUT "CONFERMI (S/N) ";K* 

2440 IF K*="S" OR K*="s" THEN N=7:FI6FLA 
G=0:GOSUB 286 0: RETURN 
2450 RETURN 

2460 REM *** CONTINUA FIGURA *** 

2470 IF FIGFLAG=0 THEN LOCATE 2,21:PRINT 
"Nessuna figura in memori a.":GOSUB 3490 
: RETURN 

2480 N=N+1:GOSUB 2860:RETURN 
2490 REM *** P.O. PARZIALI *** 

2500 START=7:N1=N:XFLAG=1 

2510 CLS:BOXF(0,2)-(39,0)" ",0,5:LOCATE 

0,1 

2520 COLOR 3:ATTRB 0,1:PRIMT " CONT E 

SC":ATTRB 0,0:COLOR 2:GOSUB 3820 

2530 FOR ELFM=8 TO NI 

2540 N=ELEM:GOSUB 570 

2550 COLOR 0,6:LOCATE 1,23:PRINT " 

": LOCATE 

1,23:PRINT START—6;"-(X,V,Z) = (";XO(STAR 
T>;",";YO(START);",";ZO(START);") SC=";F 
'/.(START) : COLOR 2,0 
2560 START=START +1 
2570 N0PT=2:GOSUB 3870 
2580 ON LIN GOTO 2590,2600 
2590 NEXT ELEM 
2600 N=N1:XFLAG=0 

2610 COLOR ,6 : LOCATE 1,23:PRINT " 

":LOCATE 

1,23:PRINT N-6;(X,Y,Z)=(";XO(N);",";YO 
(N);","; ZO ( N) ; " ) SC= " ; F7. ( N ) : COLOR, 0: GOSU 
B 3490 
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2620 RETURN 

2630 REM *-** CANCELLA ELEMENTO *** 

2640 IF FIGFLAG=0 THEN LOCATE 2,21:PRINT 
"Nessun elemento cancel1abi1 e":GOSUB 34 
90:RETURN 

2650 LOCATE 2,21:INPUT "Elemento da cane 
el1 are: ";ELt 

2660 IF EL*="" THEN RETURN ELSE EL-VAL(E 
L*> 

2670 IF EL=0 THEN GOTO 2720 

2680 IF EL+6>N THEN LOCATE 2,21:PRINT "L 

'elemento ";EL;" non esiste. ":G 

OSUB 3490:RETURN 

2690 FOR ELEM=EL+7 TO N 

2700 XO(ELEM—1)=X0(ELEM):YO(ELEM-1)=Y0(E 
LEM) : ZO (ELEM-1 )=Z0 (ELEM) : F7. (ELEM-1 ) =F7. (E 
LEM) 

2710 NEXT ELEM 

2720 BEEP:N=N—1 : RETURN 

2730 REM *** MODIFICA ELEMENTO *** 

2740 IF FIGFLAG=0 THEN LOCATE 2,21:PRINT 
"Nessun elemento modìficab 1 1 e.":GOSUB 3 
490:RETURN 

2750 CONSOLE 3,22:GOSUB 3790:CLS:BOX(0,2 
4>—(319,0),2:GOSUB 3760:C0NS0LE 4,21 
2760 LOCATE 2,4:INPUT "NUMERO ELEMENTO: 

";NUM* 

2770 IF NUM*="" THEN CONSOLE 0,24:RETURN 
ELSE NUM=VAL(NUM*) 

2780 IF NUM+6>N THEN CONSOLE 0,24:LOCATE 
2,21:PRINT "Elemento non esistente.":GO 
SUB 3490:RETURN 

2790 LOCATE 2,6:PRINT "X(";NUM;")=";:INP 
UT XO(NUM+6) 

2800 LOCATE 2,7:PRINT "Y(";NUM;")=";:INP 
UT Y0(NUM+6) 

2810 LOCATE 2,8:PRINT "Z(";NUM;")=";:INP 
UT ZO(NUM+6) 

2820 IF N=7 THEN F7. (7) =1 : GOTO 2850 
2830 LOCATE 2,10:INPUT "STATO COLLEGAMEN 
TO: ";F7. (NUM+6) 

2840 IF F7. (NUM+6 ) < >0 AND F7. (NUM+6 )<> 1 TH 
EN GOTO 2830 

2850 CONSOLE 0,24:RETURN 

2860 REM *** INSERIMENTO DATI *** 

2870 CONSOLE 3,22:GOSUB 3790:CLS:BOX(0,2 
4)—(319,0),2:GOSUB 3760:CONSOLE 4,21 
2880 PRINT:PRINT "INSERIMENTO DATI:" 

2890 DO 

2900 PRINT N—6;"> (X,Y,Z)":INPUT " X: " ; 
X*:IF X*="" THEN EXIT 

2910 INPUT " Y: ";Y*:IF Y*="" THEN EXIT 
2920 INPUT " Z: ";Z*:IF Z*="" THEN EXIT 
2930 IF N=7 THEN F$= H 1": GOTO 2960 
2940 INPUT "STATO COLLEGAMENTO: ";F*:IF 
F*="" THEN EXIT 

2950 IF F$<>"1" AND F*<>"0" THEN GOTO 29 
40 

2960 X0(N)=VAL(X*):YO<N)=VAL<Y*>:ZO(N)=V 
AL(Z*> :F7. (N> =VAL (F*) :N=N+1 
2970 FIGFLAG=1 
2980 LOOP 

2990 IF N>7 THEN N=N-1 
3000 CONSOLE 0,24:RETURN 
3010 REM 

3020 REM *** FIL.ES *** 

3030 REM 
3040 DO 

3050 EFLAG=0:CLS:BOXF(0,2)—(39,0)" ",0,5 
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LIST 


8 


LIST 


9 


: LOCATE 0,1 

3060 COLOR 3:ATTRB 0,1:PRINT " Salva Ca 
rica M. On M.Off MA IN": ATTRB 0,0.: COLOR 
2 

3070 GOSUB 3820:LOCATE 1,23:COLOR ,6:FRI 

NT " - GESTIONE FILES - 

":COLOR 2,0 

3080 N0PT=5:GOSUB 3870 

3090 ON LIN GOSUB 3130,3210,3280,3300,35 
60 

3100 IF EFLAG=1 THEN EXIT 
3110 LOOP 
3120 RETURN 

3130 REM *** SALVA *** 

3140 IF FIGFLAG=0 THEN LOCATE 2,21:PRINT 
"Nessuna figura da sai vare.":GOSUB 3490 
: RETURN 

3150 CONSOLE 23,23:CLS:INPUT "File da sa 
1 vare: ";NOME*:CONSOLE 0,24 
3160 IF NOMEf="" THEN RETURN 
3170 OPEN"0", # 1,NOME* 

3180 PRINTttl,N 

3190 FOR 1=7 TO N:PRINTttl,XO<I),YO(I),ZO 
(I) ,F7.(I> :NEXT I 
3200 CLOSE#1: RETURN 
3210 REM *** CARICA *** 

3220 CONSOLE 23,23:CLS:INPUT "File da ca 
ricare: ";NOME$:CONSOLE 0,24 
3230 IF NOME$="" THEN RETURN 
3240 OPEN"I",#1,NOME# 

3250 INPUT#1,N 

3260 FOR 1=7 TO N:INPUT#1, XO(I),YO(I),Z 

0(1) ,F7.(I) : NEXT I 

3270 CLOSE#1 : FIGFLAG=1 : RETURN 

3280 REM *** MOTOR ON *** 

3290 MOTORON:RETURN 

3300 REM *** MOTOR OFF *** 

3310 MOTOR OFF:RETURN 
3320 REM 

3330 REM *** SETTA ASSI ON-OFF *** 

3340 REM 

3350 IF AXFLAG=1 THEN AXFLAG=0:RETURN 
3360 AXFLAG=1 
3370 RETURN 
3380 REM 

3390 REM *** SUBROUTINES GENERALI *** 
3400 REM 

3410 REM *** DISEGNA *** 

3420 SYEND=PIX :SXOR=PIX1 :SYOR=P1X2:GOSUB 
3730 

3430 FOR J=START TO N-l 

3440 IF F7. ( J + l ) =1 THEN GOTO 3470 

3450 IF J<7 THEN COLOR 3 ELSE COLOR 1 

3460 LINE (FNCX(XS(J)),FNCY(YS(J)))—(FNC 

X(XS(J + 1) ) ,FNCY < YS( J +1 ) ) ) 

3470 NEXT J 
3480 RETURN 

3490 REM *** ATTENDE OK CON PENNA *** 
3500 COLOR 3,1:ATTRB 0,1:LOCATE 36,21 :PR 
INT "OK":ATTRB 0,0:COLOR 2,0 
3510 IF PNFLAG=0 THEN GOTO 3540 
3520 INPUTPEN A,B 

3530 IF A>280 AND AC311 AND B>157 AND B< 
178 THEN RETURN ELSE GOTO 3520 
3540 K$=INKEY*:IF K*="" THEN GOTO 3540 
3550 RETURN 

3560 REM •*** USCITA LOOPS *** 

3570 EFLAG=1:RETURN 

3580 REM *** USCITA L. SECONDARI *** 


3590 EFLAG2=1:RETURN 

3600 REM *** INGRANDISCE *** 

3610 PIX =PIX-SC*2:PIX2=-PIX :PIX1=-2.08*P 
IX 

3620 RETURN 

3630 REM *** RIDUCE *** 

3640 PIX =PIX+SC*2:PIX2=-PIX :PIX1=-2.08*P 
IX 

3650 RETURN 

3660 REM *** FATTORE INGRANDIMENTO *** 
3670 SC=SC+1:IF SC=10 THEN SC=1 
3680 COLOR 0,5:L0CATE 31,2:PRINT "COEF:" 
;SC:CFFLAG=1:COLOR 0,1 
3690 RETURN 

3700 REM *** STAMPA ASSI ON-OFF *** 

3710 COLOR,5:LOCATE 1,2:PRINT "AXIS ";:I 
F AXFLAG=1 THEN PRINT "ON" ELSE PRINT "0 
FF" 

3720 RETURN 

3730 REM *** CALCOLA FINE SCALA *** 

3740 SXEND=(ABS(SYEND-SYOR)*(AXEND-AXOR) 
/(AYEND-AYOR))+SXOR 
3750 RETURN 

3760 REM *** FINESTRA PICCOLA *** 

3770 WINDOWd ,27)-(318,179) 

3780 RETURN 

3790 REM *** FINESTRA TOTALE *** 

3800 WINDOW(0,0>-(319,199) 

3810 RETURN 

3820 REM *** DISEGNA CORNICI *** 

3830 GOSUB 3790:COLOR 0,1 : BOX(0,24)-(319 
,0) ,2 

3840 BOX(0,180)-(319,26),2:GOSUB 3760 
3850 COLOR,0 
3860 RETURN 

3870 REM *** PENNA OTTICA *** 

3880 IF PNFLAG=0 THEN GOTO 3910 

3890 EX=0: ONF'EN GOSUB 4040,4050,4060,407 

0,4080,4090,4100 

3900 IF EX=1 THEN RETURN ELSE GOTO 3890 
3910 REM *** TASTIERA *** 

3920 GOSUB 4120 
3930 DO 

3940 K$=INKEY$:IF K$="" THEN GOTO 3940 
3950 K=ASC(K$)-48 

3960 IF (K<=0 OR K>6) AND N0PT=7 THEN K= 
7 

3970 IF K>7 OR K<1 THEN GOTO 3940 

3980 IF N0PT=0 AND K=6 THEN RETURN 

3990 EX=0:ON K GOSUB 4040,4050,4060,4070 

,4080,4090,4100 

4000 IF EX=1 THEN EXIT 

4010 LOOP 

4020 RETURN 

4030 REM *** CALCOLA LINEE *** 

4040 LIN=1:EX=1:RETURN 


4050 IF N0PT>1 THEN LIN=2:EX = 1: RETURN 
4060 IF N0PT>2 THEN LIN=3:EX = 1: RETURN 
4070 IF NOPT>3 THEN LIN=4:EX = 1 : RETURN 
4080 IF NOPT>4 THEN LIN=5:EX = 1: RETURN 
4090 IF NOPT>5 THEN LIN=6:EX = 1 : RETURN 
4100 IF NOPT>6 THEN LIN=7: EX=1 : RETURN 
4110 RETURN 

4120 REM *** SCRIVE NUMERI OPZIONI *** 
4130 COLOR 0,1:FOR Q=0 TO NOPT-1 
4140 IF Q<6 THEN LOCATE POPT(Q) ,1 :PRINT 
MID*(STR*(0+1),2,1) 

4150 NEXT Q 

4160 LOCATE 0,23:COLOR 3,0:RETURf 
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SPAZIO POCKET 

di Marco Marzano & Maurizio Erbani 


SHARP 

PC-1500A Poket Computer 



^ff^^ssarsss s * muk ' da 

taschino ». 


n i PC-1500A è sicuramente uno dei modelli 
più completi e versatili della vasta gamma 
dei pocket computers prodotti dalla Sharp. 
Rispetto al PC-1430, già recensito in queste pagine, 
la sue dimensioni risultano maggiori (195x86x25,5 
mm), ma questo è giustificato dalle notevoli presta¬ 
zioni e dall'ampia memoria di cui il PC-1500A dispo¬ 
ne (8,5 Kb RAM espandibili a 12,5 o a 16,5 Kb). 

La tastiera, formata da 65 tasti, consta di una parte 
alfabetica, un tastierino numerico ed alcuni tasti 
speciali. 

Il display a cristalli liquidi, formato da 26 caratteri, 
è anche un piccolo schermo grafico di 7x156 pun¬ 
ti, indirizzabili singolarmente mediante codici esa- 
decimali. 

Questo pocket computer è dotato di un BASIC vera¬ 
mente potente. Oltre alle istruzioni standard, pre¬ 
senta anche funzioni particolari talvolta assenti per¬ 
sino su qualche home computer, come ON ERROR 
(che gestisce completamente ogni tipo di errore), 
TRON e TROFF (per un facile debug in fase di pro¬ 
grammazione), GPRINT e POINT (per la grafica sul 
display), ON... GOTO e GOSUB, ARUN (un’istruzione 
di autorum per consentire l’automatica esecuzione 
di un programma quando il PC viene acceso). Sono 
presenti inoltre, come in tutti i pocket della SHARP, 
numerose funzioni matematiche (trigonometriche e 
trigonometriche inverse, esponenziali, logaritmiche 
e di conversione angolare). Particolare menzione ne¬ 
cessita in alcune funzioni veramente speciali, come 
l’OROLOGIO-CALENDARIO, che può essere pro¬ 
grammato per emettere dei BEEP e visualizzare 
messaggi a scadenze definibili; sono inoltre da ri¬ 
cordare le possibilità di scrivere anche in caratteri 
minuscoli, e di proteggere il programma rendendo 
operativa solo la funzione RUN. 

Il numero di moduli, accessori e periferiche che 
possono essere interfacciate al PC-1500A è notevo¬ 
le. Una novità assoluta sono i moduli di memoria 
programmabili (di 8 o 16 Kb), che mantengono il 
programma immesso grazie ad una batteria interna. 
Con l’interfaccia CE-158, poi, questo piccolo grande 
computer dispone di una RS 232 C parallela, che 
permette di colegare altre periferiche, quali accop¬ 
piatori acustici, modem, stampanti e addirittura al¬ 
tri personal. 


Una particolare menzione merita il CE-150, un’inter¬ 
faccia registratore/stampante grafica (operativa an¬ 
che in modo TESTO), che esegue qualsiasi disegno 
in quattro colori ed è comandata da istruzioni dedi¬ 
cate, già presenti nel BASIC residente nel PC- 
1500A. 

Il PC-1500A, venduto in un comodo astuccio morbi¬ 
do, è corredato da un completo manuale di istruzio¬ 
ni e da un manuale applicativo, fornito di numerosi 
ed interessanti programmi. 



SHARP PC-1500A 

MODELLO 

SHARP PC-1500A 

DIMENSIONI 

195x86x25.5 mm. 

PESO 

375 gr. 

TASTIERA 

65 TASTI 

VISORE 

A CRISTALLI LIQUIDI 

PROCESSORE 

26 CARATTERI 

CPU CMOS A 8 BIT 

MEMORIA ROM 

16Kb 

MEMORIA 

PROGRAMMA 

8,5 Kb (ESPANDIBILI 

ALIMENTAZIONE 

A 12,5 O A 16,5 

4 PILE A SECCO 



(OPTIONAL) 

CARATTERISTICHE TECNICHE 

MODELLO 

: CE-150 

DIMENSIONI 

: 330 x 115 x 50 mm. 

PESO 

: 900 gr. 

SISTEMA STAMPA 

: PLOTTER ASSI X-Y 

MODO STAMPA 

: GRAFICO/TESTO 
COMMUTABILI 

LARGHEZZA 

CARTA 

: 58 mm. 

COLORI STAMPA 

: NERO, BLU, VERDE, 
ROSSO 

VELOCITÀ 

STAMPA 

: 11 CARATTERI/SEC. 

ALIMENTAZIONE 

: BATTERIA INCORPO¬ 
RATA RICARICABILE 
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BIORITMI POCKET 


"-vjuft^tvaS-s: 


PORTFOLIO 


n i diffuso quotidiano «La Repubblica» presen¬ 
ta ormai da molti mesi un gioco chiamato 
«Portfolio», che sta riscuotendo un notevole 
successo. 

Come molti di voi sanno, il gioco consiste nel con¬ 
trollare dei dati riguardanti le variazioni di borsa 
che sono abbinati ai numeri presenti sulle tessere 
con cui si partecipa al gioco. 

Quando il numero delle citate tessere supera una 
certa quantità il controllo quotidiano dei dati potrà 
risultare assai lungo e complicato. Questo semplice 
programma eliminerà totalmente gli eventuali errori 
che potrebbero essere commessi manualmente, ol¬ 
tre a rendere l’operazione più rapida. 

Ricopiando il programma, alla riga 10, dovete digita¬ 
re al posto di XX il numero delle tessere che posse¬ 
dete; dovete inoltre aggiungere in coda al program¬ 
ma delle linee DATA, contenenti i numeri scritti su 
ognuna delle tessere in questione. 

A questo punto il programma è pronto per girare. 
Dato il RUN, vi sarà richiesto il dividendo giornalie¬ 
ro e poi in sequenza, le 44 variazioni indicate 
nell’apposita tabella. 

Quindi il programma controllerà e visualizzerà i ri¬ 
sultati ottenuti da ciascuna delle vostre tessere e vi 
segnalerà l’eventuale vincita. 

1 RE fi XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
2 REM * PORTFOLIO * 

3 REO X DI fi. MARZANO E M. ERBANI X 
4 REO x @ 1387 X 

5 REO XXXXXX.1 

10 PRINT " Xx PORTFOLIO XX " 2|S=XX *REH SOS 
TITUIRE A XX IL NUMERO DELLE TESSERE 
■ ' CLEAR :Pin AC 44 j : INPUT "TOTALE GIOR 
?' ;A:F0R 1 = 1 TO 4 : WAI T 70-’PRINT "UARI 
AZIONE t» " 51 : INPUT ACID -NEXT I :UAIT 
30 POR J-1 TO N : B = 0 : FOR 1 = 1 TO d- READ C: 
8=B+ACC) :NEXT 1 SPRINT. 8 : Ir B=A THEN P 
RINT ''XX HAI UINT02 £XX" :F = Ì 
40 NEXT J = IF F <>0 THEN ulAIT 100:pRINT "H 
AI UINTO CON" :PRINT "LA TESSERA fi " JF 
50 END 

60 DATA. 



uesto programma non ha bisogno di molte 
presentazioni. 

_ Tutti infatti sapranno che la teoria dei Biorit¬ 
mi afferma che alla nostra nascita hanno inizio tre 
cicli di lunghezza diversa, riguardanti il nostro stato 
fisico, emotivo ed intellettuale. 

In base alla propria data di nascita ognuno potrà 
sapere il livello di questi tre cicli in un determinato 
giorno (nel nostro programma abbiamo scelto di in¬ 
dicare questi livelli in un valore variabile tra +10 e 


- 10 ). 

Generalmente questi dati vengono rappresentati 
sullo schermo di un computer o sulla carta di un 
plotter, mediante curve sinusoidali che esprimono i 
tre cicli nell’ambito di un mese. Siamo stati costret¬ 
ti, però, a limitare questa rappresentazione globale, 
in quanto l’adattabilità di questo tipo di programma 
ad un pocket computer comporta necessariamente 
una visualizzazione parziale dei dati, limitatamente, 
cioè, ad un determinato giorno del ciclo. 

Una volta ottenuto il valore richiesto potrete comun¬ 
que visualizzare quelli dei giorni precedenti e se¬ 
guenti, premendo, rispettivamente, i tasti — e +. 


ì Rtfl XXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

2 REFI X BIORITMI POCKET X 

3 REFI X DI FI. MARZANO E M. ERBANI X 

4 REFI x @ 1387 X 

5 REM xxxxxxxxxxXXxxxxxxxxxxxxXxXXX 
10 PRINT "BIORITMI POCKET" :UAIT 67 
20 rRINT "DATA DI NAS ITA' :UAIT 

30 INPUT "ANNO ? 13"JAN 
40 INPUT "MESE C1-123 ?";MN 
50 INPUT "GIORNO C1-313 ?" ;GN 
60 UlAIT 67-PRINT "DATA BIORITMO" -UlAIT 
70 INPUT "ANNO ? 13";AB:IF CAB-ANJ <3 THE 
N 70 

80 INPUT "MESE C1-123 ?" ;MB 

30 INPUT "GIORNO CI-313 ?" ;GB 

.00 AX=AN+1 :AT=AB-1 :NB=IN1 CCAY-AX3/4j 

INT [GB+30.4XCMB-133:GX=INTCC30.4 
-GN3+C30.4xC13-CMN+l3113 
1 20 TG=GTtGX-t-C 365XC CA^-AXI + i 3 3+NB 
i30 E = TG-C CINT (TG/28 3 3X283 
40 BE=INT C10XSIN C360/28 *Ej3 
i 50 r =TG-(CINT CTG/2333X233 
ì 60 BF=INT C10x0IN C360/23XF3 3 
'.70 I=TG-ì.CINT CTG/3333X33) 

.80 BI=INT C10XSIN (360/33x133 
190 UAIT 67-PRINT "UAIORI CICLI" 

200 PRINT "FISICO : ";BF 
210 PRINT "EM0TIU0 : "1BE 
220 PRINT "INTELLET. : ' ;BI:UAIT 
230 INPUT "ANCORACNs + j- 3?">$$ 

240 Ir S$ = " + " THEN TG=TG+1 :GOTO 130 
250 IF S$="-" THEN TG=TG-1:G0T0 130 
260 END 
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PROGRAMMA 


SHARP 


MZ700 


di Franco Ferrerò 



n i gioco consiste nel piazzare almeno 4 palline in li¬ 
nea retta, sia orizzontalmente che verticalmente o 
diagonalmente. 

Ai giocatori le strategie per raggiungere tale traguardo. 

I tasti da usare sono essenzialmente 3: 


cursore a destra, sinistra e in basso per la discesa; listan¬ 
dolo si spiega da se, ed è supportato da alcune subrouti- 
nes in linguaggio macchina per sopperire le routine in ba¬ 
sic troppo lente. 

Buon lavoro. 


LIST 



1 


LIST 


2 

100 

REM 

C8C8C8CRf.8C8C8CRr8r.Rr.868C 

8p.ftr.ac 


310 

DIMCTC4,2.1 

:REM Coeff. x control lo 

I 8C808C8L8C8C8C8C6C8C8C8C8 




320 

DIMPCC4 j 

:REM Posiz. pali, oiti. 

1 1 0 

REM 

03 


03 


330 

0IMPRC41 

:REM Posiz. pali. viti. 

1 20 

REM 

C& 


03 


340 

DIMPMC351 

:REM Ind. RU pali, viti. 

130 

REM 

BATTO 4 


03i 


350 

REM 



1 40 

REM 

08 C2C2C2C2C2C2C2C2C2C2C2C | 


360 

REM 

— 

— UARIABILI - 

2_ 


££ 




320 

REM 



150 

REM 

08 


C8 


390 

REM 

K j 14 

;Uar. F0R x routines 

160 

REM 

kfi. FERRERÒ FRANCO 


C8 


400 

REM 

2A, ZB. 

. . ;Uar. servizio 

120 

REM 

C8 


C8 


410 

REM 

Zi , 12 . 

. . ;Uar. servizio 

' 80 

REM 

08 U. Susa-Pinero1o 8 


C8 


420 

REM 

UA> UB. 

. . ;F1ags, indicatori 







430 

REM 

A, B, C 

;Uar. READ,GET,INPUT 

180 

REM 

C8 


C8 


440 

REM 

RU 

;RAM Uideo 

200 

REM 

C£ 10090 BRUIN0 CT0T 


C8 


450 

REM 

R,R1.. 

. . ;Contatori generai i 

210 

REM 

C8 




460 

REM 

CN 

;Co1onne 

220 

REM 

C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C | 


4 20 

REM 

RN 

; R i 9 h e 

òOéi 

08C8C8C8C8C8C8C.BC8C8C& 




480 

REM 

CL 

;Co1 ore 

230 

REM 





490 

REM 

A$ 

;Uar. a 1 fan. x GET 

240 

REM 





500 

REM 

SS,SI $ 

. . ;Uar. Musica1 i 

250 

REM 





510 

REM 



260 

REM 

- TABELLE - 




520 

REM 

— 

PREPARACI ONE- 

220 

REM 





530 

REM 



280 

l IMIT52839 




540 

G0SU32170 ‘ 

GOSUB2490 

290 

DIMCO C10 3 : REM Coni, e lem. x 

Co 

ì . 


550 

F0R2= j T02000 :NEXT 

300 

DIMGRC 1 0) 2]-'REM Griglia genera 

1 e 



560 

FQRX=1T04 
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LIST 


3 


LIST 


570 REPDP, B 

580 CICX, 13=p:CTCX,23=B 
590 NEXTX 

600 FORX= 1 T068 :REM L. fi. 1 
610 REPDP 
620 P0KE531 00+-X, A 
630 NEXT 

640 F0RX=1T012 :REM DPT I X L.M.l 

650 REPDP 

660 P0KE53215+X,P 

670 NEXT 

680 FORX =1T048 :REM L.M.2 

690 REPDP 

700 P0KE52949+X,P 

710 NEXT 

720 FORX= 1 T031 :REF1 L.M.3 

730 REPDP 

740 P0KE52899+X,P 

750 NEXT 

760 DEFFNPCX3=INTCRNDC13*X+.53 
770 REFI 

780 REFI-GRIGLIP DI GIOCO- 

790 REFI 

800 COLOR,,,0:CLS 

810 CONSOLE0,4,0,39:COLOR,,4,4:CLS 
820 USRC529003 
830 CONSOLE 
840 COLOR,,6,1 


INIZIO 


850 REFI 

860 REM - 

870 REM 

880 RI=0:UP=0:UC=0:R4=0 
890 FORX=1TO10: COCX3=0 :NEXT 
900 FORX=lT035:PMCX)=0 :NEXT 
910 FORX=1TOI0:FORT=1T07 
920 GRCX,Y}=0 
930 NEXTY,X 
940 26=FNPC101+9 
950 CL=FNPC13 

960 IFCL=1THENCL=20:GOTO980 
970 CL=36 
980 REM 

990 REM ======= ROUTINE ======= 

1000 REM 

1010 RU=55296:CN=1 
1020 UE=1 
1030 27=CL-26 
1040 R4=R4+1 

1050 1FR4=?1 GOSUB2420:G0T0810 
1060 IFCL=20THENCL=36 :GOTO1080 
1070 CL=20 
1080 GOSUB1880 
USRC531013 

IFUE=1GOSUB2590:UE=0 
GETP$:P$=CHR$CPEEKC9533 
IF CP$<>"0"3*CP$ <>"B"3*t P$ <>"0"3THEN 


1090 
1 100 
1110 
1120 


1110 

1130 IFP$="B"THEN2U=4 
1140 IFP$ = ''0"THEN2U=-4 
1150 IFP$="0“THEN1210 
1160 RU=RU+2U 

1170 IF CRU<552963+CRU>553323 THENRU=RU-2U 
:GOTO1110 

1180 CN=CN+SGNC 2U3 
1190 GOSUB1950:GOSUB1880:GOTO 1090 
1200 REM 

1210 REM - DISCESP - 

1220 REM 

1230 IFCOCCN3=7THEN1110 

1240 COCCN3=COCCN3+1 

1250 RN=COC CN3 

1260 GRCCN,RN3=CL 

1270 IFPEEKCRU+ 1 603 068THEN1 320 

1280 RU=RU+40 

1290 GOSUB1880 

1300 USRC531013 

1310 GOTO 1270 

1320 P0KE2618,4:P0KE2617,0 

1330 USRC683 

1340 FOR2=1T05:NEXT 

1350 USRC713 

1360 REM 

1370 REM - CONTROLLO - 

1380 REM 

1390 FORX=1T04 

1400 R=0:UB=0 

1410 F0RY=-3T03 

1420 2C=Y*CT CX,13 +CN 

1430 2R=Y*CTCX,23+RN 

1440 IF C 201 0 3 + C 2C <13 THEN1530 

1450 IFC2R>73+C2R<13THEN1530 

1460 IFGRC2C,2R3 =0THENR=0:UB = 0 :G0T01510 

1470 IFR=0THEN1490 

1480 IFGRCHC, 2R3 OGRC21,223 THENR = 0 :UB=0 
1490 R=R+1 

1500 PCCR3=2C:PRCR3=2R 
1510 21=2C:22=2R 

1520 IFCR = 43 + CUB=13GOSUB2030:UP=1 :UB=1 :R 

=3 

1530 NEXTY 

1540 NEXTX 

1550 IFUP=1THEN1570 

1560 GOT01010 

1570 REM 

1580 REM - UITTORIP - 

1590 REM 

1600 F0RX=2T0R1X2STEP2 
1610 RU=PMCX/23 
1620 21=INTCRU/2563 
1630 22=RU-21*256 
1640 P0KE52998+X+ 1,21 
1650 P0KE52998+X,22 


► ►► 
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BATTO 4 


LIST 5 


1660 NEXT 

1670 P0KE53235,R1 

1680 25=CL:28=200 

1690 IF25=20TFIEN25 = 36:G0T01710 

1700 25=20 

1710 21=68=22=CL:R2=0 
1720 P0KE53234 ; 21 
1730 USRC52950) 

1740 lFR2>15THEN1780 
1750 27=25-26:GOSUB2590 
1760 IF25=20THEN25=36:GOTO1780 
1770 25=20 

1780 23=22:22=21 =21=23 
1790 F0RX=1T028:NEXT 
1800 R2=R2+1 

1810 IFR2=16G0SUB2360:28 = 350 
1820 GETA$:IFCA$<>"S"D*CA$<>"N"DTHEN1720 
‘1830 IFA$="S"THEN81 0 
1840 CLS: END 


1850 REM 

1860 REfl = = = = = = SUBROLiT INES = = = = = = 
1870 REM 

1880 REN- PASSAGGIO DP»T 1 L. PI. - 

1890 REFI 


1900 PGKE53234,CL 

1910 20=I NTCRU/256j:P0KE53233,20 

1920 2U--RU-2UX256 :PDKE53232,2U 

1930 RETURN 

1940 REFI 

1950 REN - CANCELL. PALLINA - 

1960 REFI 

1970 23=RU :24=CL 
1980 R0=R0-2U:CL=68 
1990 GOSL'B 1880 
2000 USRC53101j 
2010 R0 = 23 :Cu = 24 
2020 RETURN 
2030 REFI 

2040 REFI - TRUOATO QUATTRO - 

2050 REFI 
2060 FDRK = ì TOR 

2070 9 = 55456+ CC7-PRCK33* 120) + C CPCCKD-1 )* 
4D 

2080 UC=0 

2090 FORNITORI 

2100 1FPHC W )=ATHENUC=1 

21 10 NEXTUl 

2120 IFUC=1THEN2150 

2130 RI=R1+1 

2140 pncru=a 

2150 NEXTK 
2160 RETURN 
2170 REN 

2180 REFI -PAGINA GRAFICA- 

2190 REFI 

2200 COLOR,,6,4:CLS 


LIST 6 


2210 CURSQR3 1 , 4 :PRINT 1 C.4C4 1 1 
2220 CURSOR30,5 :PR1NT' EE EEC5 " 

2230 CURS0R29,6 : PRI NT" F5C8C8 C5 " 

2240 CURS0R28,7 : PRI NT" F5C8C8C8 C5 M 
2250 CURS0R27, 8 :PRINT_"F_5C8D8C8C8 C5" 

2260 CURS0R2,9:PRINTt0,]" C4C4C4 

C4C4C4 " :CURS0R26,9:PRINT" F5C8C8C9C8C8 C^ 

2270 CURS0R2, 10 :PRINT[0,3" ErC388 8TC3S8 
FD FD 83C388 ";:PRINT" F5C8C8C9EEC 
6L8 C5 " 

2280 CURS0R2, 1 1 :PRINTC0,]"C5 C7 C5 C7 F 
D FD C5 C7 "; :PRINT" F5C8C8C9EE C8C8 
EC" 

2290 CURS0R2, 1 2 :PRINTC0, ]'‘ECC489 ECC4DA 
FD FD C5 C7 " ; :PRI NT" K5C8C8C9 C3C3C 
8C8EEEEC5" 

2300 CURS0R2,13 :PRINTC0,3"C5 88 C5 C7 F 
D FD C5 C7 ’■ : : PR I NT " C8C8L8C8C8C8C8C8 
C8C8 C5" 

2310 CURS0R2, 14 :PRINTC0,]"C5 C7 C5 C7 F 
L _FD C5 C7 • ; :PRI NT " C8C8C8C8C8C8C8C8 
C8L8EE " 

2320 CURS0R2, 1 5 :PRINTC0, ] , .' ECC489 C5 C7 
FL FD 84C489 ' ; :CUR5OR30, 1 5 : PR I NT 11 C8C8 
EE" 

2330 CURSORI , 17 :PRINTC2,3" C8L8^8C8C8C8C8 
^L9^bC&LfcC.6^3.-8C8C8L8C8C8C8L8C8C8C8C8C8 

C8C&L8b8C8C8C8L8C&L8C8 C8C8C8C8C8C8C8C8 
.e- -c-CE Jc -c -c --9L~b-bb9.-9^9L6C9C8C8C8C8C8 

obC8C8C6C8C8C.8L638C8" 

2340 RETURN 
2350 REN 

2368 REN - ALTRA PARTITA ? - 

2370 REN 

2380 CLRS0R8)1 :PRINT[0,43“ALTRA PARTITA 
?" ;:PRINT[6,4]" CS/N3" 

2398 CLR30R5,2 :PR I NT [ 2,4 3 *' ‘,2l2C2i2C2l.2C2 
1?^?L?L2l2C?l2C2C2C2C2l2C2C2C2C2C2C2C2C2 

2400 RETURN 
2410 REN 

2420 REN - PARTITA PARI - 

2430 REN 
2440 GOSUB2360 

2450 GETA$: IF CA$ <>"S 1 3*CA$<>"N"3THEN2450 

2460 IFA$ = "N ,, THENCLS :END 

2470 UD=1 

2480 RETURN 

2490 REN 

2500 REN - SONORO N' 1 - 

2510 REN 

2520 Sl$="+Cì+FR1+E1+DR1+C1+D2+C4" 

2530 S2$ = "+C0R + CR + CR + CR + CR + D2 + C.4" 

2540 S3$= 1 +C0R+CR+CR+CR+CR+D2+C5R2" 

2550 S4$="+C1R0+C1RIBARGF3" 

2560 TENPQ5 
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GIOIELLI DELLA 


LIST 7 

2570. 

riUSiCSl $,S2$,S2$,S1$,S2$,S3$,S4$ 

2580 

RETURN 

2530 

REd 


2600 

REd - 

- SONORO N* 2 - 

2610 

REd 


2620 

P0KE2618j 27:P0KE2617,0:USRC68D 

2630 

F0RK = 

1 T01 00 -’NEXT 

2640 

USRC7 

1 3 

2650 

return 

2660 

REM 


2670 

REd 

- OPTI - 

2680 

REd 


2630 

REd 

DPT I X CT-• 

2700 

REd 


271 0 

DPT P 

1,0,1,1,0,1,-l,1 

2720 

REd 


2730 

REd - 

- DPTI X ROUTINE L.d.1 -- 

2740 

REd 


2750 

DPT P 

137,213,223,243,211,227 

2760 

DPT P 

42,240,207,17,38,0 

2770 

DPTP 

58,242,207,6,68,112 

2780 

DPTP 

35,112,35,112,6,3 

2730 

DPTP 

25,119,35,119,35,119 

2800 

DPTP 

16,248,17,122,8,55 

2810 

DPTP 

63,237,82,17,224,'207 

2820 

DPTP 

235,62,4,1,3,0 

2830 

DPTP 

237,176,1,37,0,235 

2840 

DPTP 

9,235,61,254,0 

2850 

DPTP 

32,240,211,225,251,225 

2860 

DPTP 

203,193,201 

2870 

REd 


2880 

REd - 

DPTI PER PREP LPU0R0 L.d.1 - 

2830 

REd 


2300 

DPTP 

0,0,0,78,67,77 

2310 

DPTP 

67,67,67,66,67,86 

2320 

REd 


2330 

REd - 

--- OPTI X ROUTINE L.d.2 - 

2340 

REd 


2350 

DPTP 

197,213,229,243,211,227 

2360 

DPTP 

58,243,207,71 

2370 

DPTP 

17,8,207,26, 13,111 

2380 

DPTP 

26,19,103,58,242,207 

2330 

DPTP 

197,213,6,3 

3000 

DPTP 

17,38,0,119,35,119 

3010 

DPTP 

35,119,25,16,248,209 

3020 

DPTP 

193,16,228,211,225,251 

3030 

DPT P225,209,193,201 

3040 

REd 


3050 

REd - 

— DPTI X ROUTINE L.d.3 — 

3060 

REd 


3070 

DPTP 

197,213,229,243,211,227 

3080 

DPTP 

6,210,33,160,216 

3030 

DPTP 

62,68,119,35,'19,35 

3100 

DPTP 

119,35,54,0,35 

31 10 

DPTP 

16,245,211,225 

3120 

DPTP 

251,225,209,193,201 


ROBOTICA 


ECCO I FAMOSI KIT “MOVIT” PER 


GLI APPASSIONATI DEL “FAI DA TE” 



LINE TRACER II MV-913 

Guidato da un sensore a raggi 
infrarossi questo robot segue 
qualsiasi linea nera tracciata su un 
foglio bianco. L.115.000 



MEMOCOM CRAWLER MV-918 

Questo robot è controllato da una 
memoria RAM 256x4 bit, mediante 
la tastiera inclusa nel kit e si muove 
in base ai comandi comunicati a 
quest'ultima. L.149.000 



PIPER MOUSE MV-915 

Usando un fischietto unito al kit 
PIPER MOUSE eseguirà 
immediatamente i comandi 
comunicativi sinistra, stop, destra, 
stop, avanti e stop L.89.000 



CIRCULAR MV-935 

É provvisto di due grandi ruote che 
gli permettono di ruotare in avanti, a 
destra, a sinistra e su se stesso. 
Tutti i movimenti sono controllati 
mediante un comando a distanza. 
L.149.000 



NAVIUS MV-938 

É un robot controllato mediante 
dischetti programmabili. É in grado 
di riconoscere il bianco e il nero del 
dischetto programmato e quindi 
muoversi in avanti, a destra, a 
sinistra o fermarsi L. 115.000 


MEDUSA MV-939 

Il robot dal cervello elettronico. 
Registrati i comandi, il robot inizierà 
a muoversi femandosi 
automaticamente passato il tempo 
prestabilito 
L.65.000 


PRODOTTI IN GIAPPONE - DISTRIBUITI IN ITALIA 
da TEXIM ITALIA s.r.l. - Via Flavio Stilicone, 111 
C A.P. 00175 - Roma - Tel. 7665495 

Per riceverli: 

Inviare l’importo al detto indirizzo, a mezzo VAGLIA 
POSTALE o ASSEGNO BANCARIO N.T. in busta chiusa. 
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LIST 


'i s co " ; R 


1020 CURSORI 9> 6 : INPUT"";R$ 

640 F0R00=1TO100 


1030 FOROO=1TO100 

650 IFR=OOTHENGOSUB2040 


1040 IFR$=LEFT$CTD$COO},LENCR$}}THENGOSU 

660 NEXTOO 


B2150 

670 GOTO490 


1050 NEXTOO 

680 CURS0R2,2 


1060 CLS: CURSORI 2, 12.:PRINT"Dat i terminat 

690 CLS: INPUT"®B I1 nome dell' Autor 


i " 

e del testo® Ce'suff1ciente la p 


1070 FORU=1TO1500:NEXTU 

rima 1etteraJ ";R$ 


1080 GOTO490 

700 F0R00=1T0100 


1090 CURS0R2 j 2 

710 IFR$=LEFT$CAT$COO},LENCR$}JTHENGOSUB 


1100 GOTO10 

2150 


1110 CLS:INPUT"®S Casa discog 

720 NEXTOO 


rafica E Ce 'sufficiente la 

730 CLS:CURS0R12,12:PRINT"Dat! terminati 


prima lettera} ";R$ 

1 120 F0R00=1TO100 

740 F0RU=1TO1500 :NEXTU 


1130 IFR$=LEFT$CCD$COO},LENCR$}}THENGOSU 

750 GOTO490 


B2150 

760 CURS0R2,2 


1140 NEXTOO 

770 CLS:INPUT"EE Il nome dell' Autore 


1150 CLS : CURSOR12,12:PRINT"Dati terminat 

della musica® Ce'sufficiente la p 


• I» 

1 

rima 1ettera} ";R$ 


1160 FORU=1TO1500:NEXTU 

780 F0R00=1TO100 


1170 GOTO490 

790 IFR$=LEFT$CAM$COO},LENCR$J JTHENGOSUB 


1180 REM ****************************** 

2150 


1190 REM ******* CARICAMENTO ********** 

800 NEXTOO 


1200 REM ****************************** 

810 CLS:CURS0R12,12 :PRINT"Dati terminati 


1210 CLS:CURSOR0,i0 :PRINT" Introduci la 
cassetta con i dati nel Sregistra 

820 F0RU=1TO1500 :NEXTU 


tore e premi < ";CHR$C$7F};" PLAY >" 

830 GOTO490 


1220 ROPEN"" 

840 CLJRS0R2,2 


1230 PRI NT"EBBE® Sto caricando, pre 

850 CLS: INPUT"®ffl II nome del Ca 


go attendere" 

ntante ffi Ce'sufficiente la p 


1240 INPUT/TA 

rima 1 ettera} ";R$ 


1250 F0RR=1TOA 

860 F0R00=1TO100 


1260 INPUT/T AT$ C R},AM$ C R},CA$CR},AR$CR}, 

870 IFR$=LEFT$CCA$C00},LENCR$3 3THENG0SUB 


TD$CR},CD$CR} 

2150 


1270 NEXTR 

880 NEXTOO 


1280 PRINT"®E®SE Caricamento ult 

890 CLS : CURSOR12,12:PRINT"0ati terminati 


imat o" 

1» 


1290 CLOSE 

900 F0RU=1T01500 :NEXTU 


1300 F0RXL=1TO3000 :NEXTXL 

910 GOTO490 


1310 GOT010 

920 CURS0R2,2 


1320 F0R00=1TOA 

930 CLS : INPUT"®® Il nome dell' Arr 


1330 REM ****************************** 

angiatore E Ce'sufficiente la p 


1340 REM ******* ROUTINE UIDEO ******** 

rima 1ettera} ";R$ 


1350 REM ****************************** 

940 F0R00=1TO100 


1360 CLS:PRINT“® Disco N.ro:";00 

950 IFR$=LEFT$CAR$COO},LENCR$} DTHENGOSUB 


1370 PRINT "0 Autore testo: " ;AT$ 

2150 


C00} 

960 NEXTOO 


1380 PRINT "E Autore mus i ca : " ,*AM$ 

970 CLS : CURSOR12j12:PRINT"Dati terminat 


COO} 

H 


1390 PRINT "E Cantante: ";CA$ 

980 F0RU=1TO1500 :NEXTU 


COO} 

990 GOTO490 


1400 PRINT "E Arrangiatore: ";AR$ 

1000 CURS0R2,2 


COO} 

1010 CLS :PRINT"S® Tipo di d 


1410 PRINT "E Tipo di disco: ";TD$ 

isco E Ce'suffic i ente la 


COO} 

prima lettera} " 


1420 PRINT "ECasa discografica: ";CD$ 


► ►► 
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PROGRAMMA 


SHARP 


MZ700 


di Pietro Favi 



— ; all’ordinamento 

finalizzi 0 a 4 as tati e m 

ss-ESs^r 22 -— 


■MHHMBBHHl 


O l listato che segue che è sicuramente migliorabile, 
essendo esso composto di tanti blocchi chiara¬ 
mente legati l’uno all’altro affinché anche un prin¬ 
cipiante vi possa intervenire, elimina il problema del ritro¬ 
vamento di qualsiasi disco. 



Non intendo dilungarmi oltre sul suo funzionamento per¬ 
ché il programma è facile da eseguire e tutto ciò che è 
necessario fare risulta evidente sulle varie schermate, fi¬ 
no all’ottava subroutine che segna la fine del programma. 


LIST 2 


320 INPUT"0 Autore testo: " ;AT$CA3 

330 IFLEFT$CAT$CA3, 1 3="90"THENA=A-1 :G0T0 
10 

340 AT$CA3=LEFT$CAT$CA3,203 
350 INPUT"SI Autore musica: 

360 AM$CA3=LEFT$CAN$CA3,203 
370 INPUT"® Cantante: 

380 CA$CA3=LEFT$CCA$CA3,203 
390 INPUT"® Arran 9 latore : 

400 AR$CA3=LEFT$CAR$CA3,203 
410 INPUT"® Tipo di disco: 

420 TD$CA3=LEFT$CTD$CA3,203 
430 INPUT"®Casa discografica: 

440 CD$CA3=LEFT$CCD$CA3,203 
450 GOTC290 
460 REN ****************************** 
470 REfl *********** RICERCA ********** 
480 REM ****************************** 
490 CLS: PRINT"® MENU' RICER 

CA" 

500 PRINTTABC93"0®1 - Disco numero" 
oi0 rKiNli Adi 93 1 02 - Autore testo" 

520 PRINTTABC3) "03 - Autore musica" 

530 PRÌNTTABC93"04 - Cantante" 

540 PRINTTABC93"®5 - Arrangiatore" 

550 PRINTTABC93"06 - Tipo di disco" 

^*0 PRINTTABC93"08 - Menu' principaI e" 
570 PRINT"®0®@ ’ Cosa scegli ? 

580 GETDD$: IFDD$=""THEN580 

590 DD=UAL C DD$ 3 

600 IFCDD<13+(DD>83THEN580 

610 ONDDGOSUB620,690,760,840,920,1000, 10 

90,1100 

620 CURS0R2,2 

630 CLS:INPUT"0® Il numero de L d 


1 ;ah$ca3 
" ;CA$CA3 
" ;AR$ CA3 
" ;TD$CA3 
" ;CD$CA3 
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DISCOTECA 


LIST 5 


LIST 6 

C003 


1850 REN ****************************** 

1430 PRINT"ESEB" 


1860 REN ***** ROUTINE CORREZIONE ***** 

1440 PRINT" Premi < C > per correg 


1870 REN ****************************** 

9 e re " 


1880 CLS : INPUT"® Autore testo: ";AT$CA: 

1450 PRINT" 0 < M > per tornare al 


1890 at$ca)=left$cat$ca:,20: 

Ne nu'" 


1900 INPUT"® Autore musica: ";AN$CA3 

1460 PRINT" 0 o un qualsiasi tasto per 


1910 AN$CA:=LEFT$CAN$CA3,203 

continuore" 


1920 INPUT"® Cantante: ";CA$CA3 

1470 GETAA$:IFAA$=""THEN1470 


1930 ca$ca:=left$cca$ca:,20: 

1480 IFAA$="C"THENG0SUB1880 


1940 INPUT"® Arrangiatore : ";AR$CA3 

1490 IFAA$="N'THENGOTO10 


1950 AR$CA:=LEFT$CAR$CAj 3 20: 

1500 NEXTQO 


1960 INPUT"® Tipo di disco: ";TD$CA: 

1510 GOTO 10 


1970 TD$CA)=LEFT$CTD$CAD,20] 

1520 REN ***************************** 


1980 INPUT 1 ffiCasa discografica: " ;CD$CA3 

1530 REN ******* SALUATAGGIO ******** 


1 990 CD$CA3=LEFT$CCD$CAI,203 

1540 REN ***************************** 


2000 RETURN 

1550 Ci_S :CURSOR0, 10:PRINT" Introduci la 


2010 CLS:CURSOR12,12 

cassetta nel registratore 0e prem 


2020 PRINT 1 FINE DEL PROGRANNA" 

i < ";CHR$C$>FDJ" RECORD.PLAY >" 


2030 CURSOR0J 23:END 

1560 WOPEN"" 


2040 CLS:PRINT"ffl Disco N.ro: ";00 

1570 PRINT"00000 Sto saldando, preg 


2050 PRINT "® Autore testo: " ;AT$ 

o attendere" 


eoo: 

1580 PRINT/TA 


2060 PRINT "® Autore musica: ";AN$ 

1590 F0RR=1TOA 


eoo: 

1600 PRINT/TAT$CR:,AN$CR3,CA$CR),AR$CR3, 


2070 PRINT "E Cantante: " ;CA$ 

TD$CR3,CD$CRJ 


eoo: 

1610 NEXTR :CL0SE 


2080 PRINT "S Arrangiatore: ";AR$ 

1620 PRINT"@EBEE Saluataggio ul 


eoo: 

timat o" 


2090 PRINT "E Tipo di di.sco: " ;TD$ 

1630 F0RU=1TO3000 :NEXTU :G0T010 


eoo: 

1640 REN ****************************** 


2100 PRINT "BCasa discografica: ";CD$ 

1650 REN ********* STANPA ************* 


eoo: 

1660 REN ****************************** 


2110 PRINT"®®®®® Premi un tasto per to 

1670 CLS 


mare al flenu' 1. 

1680 F0R00=1TOA 


2120 GETAA$ : IFAA$ = " "THEN21 20 

1690 PRINT/P" Disco N.ro: " ;00 


2130 IFAA$="N"THENG0SUB10 

1700 PRINT/P " Autore testo: " ;AT$ 


2140 RETURN 

C00I 


2150 REN ****************************** 

1710 PRINT/P " Autore musica: " ;AN$ 


2160 REN ******* ROUTINE RICERCA ****** 

COOJ 


2170 REN ****************************** 

1720 PRINT/P " Cantante: " ;CA$ 


2180 CLS:PR1NT"® Disco N.ro:";00 

C00: 


2190 PRINT "E Autore testo: ";AT$ 

1730 PRINT/P " Arran 9 latore : " ;AR$ 


eoo: 

C 003 


2200 PRINT "3 Autore musica: " ;AN$ 

1740 PRINT/P " Tipo di disco: ";TD$ 


eoo: 

eoo: 


2210 PRINT "® Cantante: " ;CA$ 

1750 PRINT/P " Casa discografica: " ;CD$ 


eoo: 

eoo: 


2220 PRINT "B Arran 9 iatore : ";AR$ 

1760 PRINT/P:PRINT/P 


eoo: 

1770 NEXT00:G0T010 


2230 PRINT "E Tipo di disco: " ,*TD$ 

1780 GOT010 


eoo: 

1790 CLS 


2240 PRINT "BCasa discografica: ";CD$ 

1800 CURSOR0 j 10 


eoo: 

1810 PRINTTABC16D"NEN0RIA" 


2250 PRINT"EEEES Premi un tasto per 

1820 PRINTTABC14D"0Bytes";SIZE 


continuare" 

1830 F0RU=1TO3000:NEXTU 


2260 GETDD$ : IFDD$ = ""THEN2260 

1840 GOT010 


2270 RETURN 


76 


LIST 8-9/87 









Raccolte 


msMML pq i tcc hm carpir™ 


(AifimMNcy 



1984-1985 



UNA VERA SOFTECA CON 364 PROGRAMMI 
PREZIOSE RUBRICHE DI CULTURA INFORMATICA 
E MOLTI CONSIGLI... OLTRE I MANUALI 



IN REGALO 



2 


LA VALIGETTA DI MODA 

Per richiederle usa il bollettino qui a fianco 
su cui è stampato l’importo da inviare. 
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INDISPENSABILE 
Al NEO-COMPUTERISTI 



FINALMENTE 
IL PRIMO LIBRO 
TUTTO 

ITALIANO SUL 

“LOGO” 


n 



Il “Logo” è un linguaggio 
che si sta affermando, 
in Italia e all’estero, 
come il principale 
strumento per usare 
attivamente il computer 
nella scuola. 

“Logo” serve per imparare 
a programmare con, 
ma anche 
senza il computer. 

Per richiederlo usa il bollettino 


1 
















I PROGRAMMI DI LIST 


COMMODORE 128 LIST N 


BUSINESS GRAPHICS 

11/1986 

TUNDER BALL 

11/1986 

AR.CON 

12/1986 

TOP-GUN 

1/1987 

Progressioni ARITMETICHE 

2/1987 

ROMPICAPO (puzzle) 

2/1987 

TECNO 

3/1987 

RAINBOW 

5/1987 

EASY DATA 

5/1987 

COMMODORE 64/128 

LIST N 

DESIGN LAB 

10-11/1985 

TUTTO IL CALCIO.. 

12/1985 

RUBRICA TEL. 

1-2/1986 

VIDEOSINT 

1-2/1986 

RADICE QUADRATA 

3/1986 

ASTON 64 TITOLATRICE 

3/1986 

CATALOGO PROGRAMMI 

4/1986 

AFFINITÀ DI COPPIA 

4/1986 

TEST DI GEOMETRIA 

5-6/1986 

SUPER UTILITY 

5-6/1986 

ISTOGRAMMI 3-D 

5-6/1986 

NOTE DIRECTORY 

9/1986 

WINDOW 64 

10/1986 

SPRITE BUSTER 

11/1986 

CLASSIFICA CAMP A-B 

11/1986 

DISEGNO E STAMPA 

12/1986 

CONVERSIONE NUMERI 

12/1986 

SOGLIANDO IL DIZIONARIO 

1/1987 

FORMULA 3000 

1/1987 

EQUIVALENZE 

1/1987 

LE TABELLINE 

2/1987 

CALCOLATRICE SCIENTIFICA 

2/1987 

DISCUSSIONE DI FUNZIONE 

2/1987 

IN GIRO PER L'EUROPA 

3/1987 

AMMORTAMENTO INTERESSI 

3/1987 

COPERTINA PER CASSETTE 

5/1987 

COMMODORE 16/PLUS 4 

LIST N 

CHIMICA 

10-11/1985 

ASTON 16 

12/1985 

CHAR 16GEN. CARAT 

3/1986 

CAMPIONATO DI CALCIO 

4/1986 

BIORITMI 

7-8/1986 

SEGA SC 300 

LIST N 

MATH SOFTWARE 

8-9/1985 

GEOMETRIA 1 

10-11/1985 

GRAPH 3000 

1-2/1986 

TOPOGRAPH 3000 

3/1986 

DRAWER 

4/1986 

BAKER 

5-6/1986 

HANOI 

7-8/1986 

GFORZA4 

11/1986 

OBLIN 

9/1986 

DERBY 

10/1986 

RAF 

10/1986 

TOP-SECRET 

12/1986 

POKER 

12/1986 


SHARP MZ 700 LIST N 


ELENCO FORNITORI 

10-11/1985 

SETTE E MEZZO 

10-11/1985 

LO STRISCIONE 

12/1985 

ELENCO CLIENTI 

1-2/1986 

IL MURO 

1-2/1986 

SHARPORGANO 

1-2/1986 

THE STING 

3/1986 

CACCIA ALLE LETTERE 

1-2/1986 

GESTIONE MAGAZZINO 

4/1986 

FILETTO 

5-6/1986 

BUSINESS MANN 

5-6/1986 

CONTABILITÀ DOMESTICA 

7-7/1986 

GRAFICI AZIENDALI 

9/1986 

TOTOCALCIO 

10/1986 

SCOPRI LA CARTA 

10/1986 

BATTAGLIA NAVALE 

11/1986 

CONOSCERE L ANATOMIA 

12/1986 

ESAME DI GEOMETRIA 

12/1986 

ENALOTTO 

1/1987 

CONOSCERE L'ANATOMIA 

1/1987 

FUNZIONI 3D 

2/1987 

COPERTINE PER CAS 

2/1987 

CODICE COLORE RESISTENZE 

2/1987 

WORD PROCESSOR 

3/1987 

CODICE FISCALE 

5/1987 

COORDINATE CARTESIANE 

5/1987 

TEXAS TI 99/4A 

LIST N 

SCHEDA P MONDRIAN 

8-9/1985 

LA COMETA DI HALLEY 

10-11/1985 

LEONARDO 

12/1985 

THE LORD OF SPIDERS 

12/1985 

MAYA 

1-2/1986 

DECODIFICATORE 

1-2/1986 

CONV ESADEC -DEC 

3/1986 

BOWLING 

3/1986 

PROGETTO D A C I A 

4/1986 

GALAXI ADVENTURE 

4/1986 

SIMON TEXAS 

5-6/1986 

SKIING IN THE NIGHT 

5-6/1986 

DISEGNO IN HI-RES 

7-8/1986 

VIDEO PRINT 

11/1986 

MERRYGO ROUND 

11/1986 

CHERNOBYL 

9/1986 

PASSAGGIO SU GIZA 

9/1986 

MARS WARS 

10/1986 

VIDEOCONCERTO 

12/1986 

INTERCEPTOR 

12/1986 

CALENDARIO PERPETUO 

1/1987 

GRAZYBALL 

2/1987 

GOLF 

3/1987 

SISTEMI MSX 

LIST N 

POKER 

8-9/1985 

GALACTICA 

10-11/1985 

PAINT WITH DRAW 

12/1985 

NUDO ARTISTICO 

5/1987 

EDIT SPRITE 

5/1987 

GRAFICA MATEMATICA 

5/1987 


PER RICHIESTE VEDI 
“SERVIZIO PROGRAMMI” 


DATA WRITER 

1-2/1986 

ROADRACE 

1-2/1986 

GHOST-MAZE 

3/1986 

ROMPICAPO 

1-2/1986 

WIMBLEDON 

4/1986 

SUPER SORT 

5-6/1986 

THEDIES 

7-8/1986 

MASTERMIND MSX 

9/1986 

ORD ALFABETICO 

10/1986 

C/C BANCARIO 

10/1986 

BONUS MALUS 

11/1986 

TORNIO ELETTRONICO 

11/1986 

CHE GIORNO ERA 

12/1986 

CORSO DI INGLESE 

12/1986 

IL TECNIGRAFO 

1/1987 

CARATTERI SPECIALI 

1/1987 

CORSO D'INGLESE 2a CAS 

1/1987 

CORSO D'INGLESE 3a CAS 

2/1987 

SCARABEUS 

2/1987 

TITOLATRICE A 20 INGRAND 

3/1987 

L'INVENTA SPRITE 

3/1987 

CHI É 

3/1987 

CORSO INGLESE 4‘ CASSETTA 

3/1987 

ZX SPECTRUM 

LIST N 

FUSO ORARIO 

1-2/1986 

CAMP 1 

1-2/1986 

SLALOM 

3/1986 

TOT 13 

3/1986 

DATA BASE 

4/1986 

RENUMBER 

4/1986 

ROTOR 

5-6/1986 

PAINT 

5-6/1986 

TIC-TAC-TOE 3D 

7-8/1986 

Q.l. 

9/1986 

IL TEST DELL'AMORE 

10/1986 

GEOMETRIA PIANA 

10/1986 

Y 30 

11/1986 

PIANO BAR 

11/1986 

ROULETTE 

12/1986 

DOUBLÉ 

12/1986 

AIRAM 

1/1987 

TESEO 

1/1987 

DAMA 

2/1987 

MERIDIANA 

5/1987 

STARLITH 

5/1987 

ECLISSLUNA 

3/1987 

OLIVETTI PRODEST PCI 28 

LIST N 

QUARKSTYLE 

1/1987 

MASTERMIND 

1/1987 

ALFABETO PAZZO 

2/1987 

SEMPLIFICAZIONE DI FRAZIONI 

3/1987 

OTHELLO 

4/1987 

MEMORY 

4/1987 

IL VIAGGIOSCOPIO 

5/1987 

OLIVETTI PRODEST PC128S 

LIST N 

WINDOW EDITOR 

2/1987 

SPHEROGRAPH 

3/1987 

OLICALC 

4/1987 

CONTABILITÀ DOMESTICA 

5/1987 



SERVIZIO PROGRAMMI 

I programmi, pubblicati in questo e nei precedenti numeri di LIST, 
sono disponibili in cassetta o (floppy disk solo per Commodore) 

I lettori possono richiedere uno o più programmi, specificandone 
i titoli, e inviando, quale contributo spese, per ogni programma: 

Lire 10.000 per la cassetta, Lire 12.000 per il floppy disk 
(Commodore) e L. 15.000 per Olivetti PC 128S 
Tale contributo è comprensivo delle spese di imballo e 
spedizione a domicilio. 

La richiesta deve essere fatta a mezzo vaglia postale; 
indirizzato a EDICOMP s.r.l. Via F. Stilicone, 111 - 00175 Roma 
oppure con assegno bancario N.T. in busta chiusa. 





















Il LOGO è il linguaggio che si sta affermando, in Italia e all’estero, come 
il principale strumento per usare attivamente il computer nella scuola. 

Il LOGO serve per imparare a programmare giocando con, ma anche 
SENZA, il computer. 

Caratteristica di questo libro è il gran numero di esercizi-gioco 


contenuti in ciascun 
capitolo. 

Il volume è l’unico 
"italiano " per il 
LOGO del 
Commodore 64, e 
grazie a! dizionario 
finale, può essere 
usato anche da 
utenti Apple, IBM, 
Texas. 

L’autore 

Paolo Ciancarini, 

laureato in scienze 
deH’informazione, lavora 
presso il Dipartimento di 
Informatica 
dell’Università di Pisa 
con una borsa di 
Dottorato di Ricerca. 

Da alcuni anni si occupa 
dei rapporti tra 
l’informatica didattica 
nella scuola di base, ed 
ha tenuto numerosi corsi 
di aggiornamento per 
insegnamenti di ogni 
grado scolastico. 


Per acquistarlo 
vedi il bollettino 
di o.c.p. all’interno 













